home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / Formats / Pedigree Format < prev   
Encoding:
Text File  |  2000-12-05  |  52.9 KB  |  3,174 lines  |  [TEXT/GeDt]

  1. GFVN 6
  2. @@GeDF@@_Unknown_ Printing
  3.  
  4. @@GeDF@@Individual Events
  5. ADOP Adoption
  6. CHRA Adult Christening
  7. BAPM Baptism
  8. BARM Bar Mitzvah
  9. BASM Bas Mitzvah
  10. BIRT Birth
  11. BLES Blessing
  12. BURI Burial
  13. CAST Caste Name
  14. CENS Census
  15. CHR Christening
  16. EVEN Circumcision
  17. CREM Cremation
  18. CONF Confirmation
  19. NMR Count of Marriages
  20. DEAT Death
  21. EVEN Deed
  22. EDUC Education
  23. EMIG Emigration
  24. FCOM First Communion
  25. EVEN Generic Event
  26. GRAD Graduation
  27. EVEN Illness
  28. IMMI Immigration
  29. BAPL LDS Baptism
  30. SLGC LDS Child Sealing
  31. CONL LDS Confirmation
  32. ENDL LDS Endowment
  33. EVEN Military Service
  34. EVEN Miscarriage
  35. EVEN Mission
  36. NAME Name
  37. IDNO National ID Number
  38. NATI National or Tribal Origin
  39. NATU Naturalization
  40. TITL Nobility Type Title
  41. NCHI Number of Children
  42. OCCU Occupation
  43. ORDN Ordination
  44. DSCR Physical Description
  45. PROP Possessions
  46. PROB Probate
  47. RELI Religious Affiliation
  48. RETI Retirement
  49. RESI Residence
  50. SSN Social Security Number
  51. WILL Will
  52. @@GeDF@@Family Events
  53. ANUL Annulment
  54. CENS Census
  55. DIV Divorce
  56. DIVF Divorce Filed
  57. EVEN Generic Event
  58. ENGA Engagement
  59. SLGS LDS Spouse Sealing
  60. MARR Marriage
  61. MARB Marriage Bann
  62. MARC Marriage Contract
  63. MARL Marriage License
  64. MARS Marriage Settlement
  65. NCHI Number of Children
  66. EVEN Separation
  67. @@GeDF@@GEDCOM Tag Names
  68. ABBR Short Title
  69. ADOP Adoption
  70. ADR1 Address Line 1
  71. ADR2 Address Line 2
  72. AGE Age
  73. AGNC Agency
  74. ANCE Gens. of Ancestors
  75. ANUL Annulment
  76. AFN Ancest. File No.
  77. BAPL LDS Baptism
  78. BAPM Baptism
  79. BARM Bar Mitzvah
  80. BASM Bas Mitzvah
  81. BIRT Birth
  82. BLES Blessing
  83. BURI Burial
  84. CALN Call Number
  85. CAST Caste Name
  86. CAUS Cause
  87. CENS Census
  88. CHAR Character Set
  89. CHR Christening
  90. CHRA Adult Chr
  91. CITY City
  92. CONF Confirmation
  93. CONC Concatenated
  94. CONL LDS Confirmation
  95. CONT Continued
  96. COPR Copyright
  97. CORP Corporation
  98. CREM Cremation
  99. CTRY Country
  100. DATE Date
  101. DEAT Death
  102. DESC Gens. of Descendents
  103. DEST Dest File
  104. DIV Divorce
  105. DIVF Divorce Filed
  106. DSCR Physical Descrip.
  107. EMIG Emigration
  108. ENGA Engaged
  109. ENDL LDS Endowment
  110. EVEN Event
  111. EDUC Education
  112. FAMF Family File
  113. FCOM 1st Communion
  114. FILE File
  115. FORM Form
  116. GIVN Given
  117. GRAD Graduation
  118. IDNO Nat. ID No.
  119. IMMI Immigration
  120. LANG Language
  121. MARB Marriage Banns
  122. MARC Marr. Contract
  123. MARL Marr. License
  124. MARR Marriage
  125. MARS Settlement
  126. MEDI Media Type
  127. NATI Nationality
  128. NATU Naturalized
  129. NCHI No. of Children
  130. NICK Nickname
  131. NMR No. of Marriages
  132. NPFX Prefix
  133. NSFX Suffix
  134. OCCU Occupation
  135. ORDI Ord. Process Flag
  136. ORDN Ordination
  137. PAGE Page
  138. PEDI Pedigree
  139. PHON Phone No.
  140. PLAC Place
  141. POST Postal Code
  142. PROB Probate
  143. PROP Possessions
  144. QUAY Quality
  145. REFN User Ref. No.
  146. RELA Relationship
  147. RELI Religion
  148. RESI Residence
  149. RESN Restriction
  150. RETI Retirement
  151. RFN Record File No.
  152. RIN Record ID
  153. ROLE Role in Event
  154. SLGC LDS Child Sealing
  155. SLGS LDS Spouse Sealing
  156. SPFX Sur Prefix
  157. SSN Soc. Sec. No.
  158. STAE State
  159. STAT Status
  160. SURN Surname
  161. TEMP Temple Code
  162. TEXT Text
  163. TITL Title
  164. TIME Time
  165. TYPE Type
  166. VERS Version
  167. WILL Will
  168. _MREL Mother's Rel.
  169. _FREL Father's Rel.
  170. @@GeDF@@@WindowRects
  171. 1 1 0 0
  172. 38 48 797 690
  173. 71 72 595 613
  174. 127 203 647 638
  175. 96 161 563 517
  176. 42 141 461 510
  177. 81 198 529 322
  178. 96 127 485 354
  179. 67 206 476 437
  180. 51 96 575 637
  181. 57 159 462 196
  182. 51 106 566 469
  183. 12 48 633 719
  184. 28 44 908 683
  185. 85 47 539 400
  186. 210 163 702 539
  187. 33 107 512 452
  188. @@GeDF@@@Tree Preferences
  189. 0 @PREF@ @TRE
  190. 1 @STY Name
  191. 2 @FNT Helvetica
  192. 2 @SZE 9
  193. 2 @FCE Plain
  194. 2 @CLR Color
  195. 3 @RGB 0 0 0
  196. 1 @STY Title
  197. 2 @FNT Helvetica
  198. 2 @SZE 10
  199. 2 @FCE Bold
  200. 2 @CLR Color
  201. 3 @RGB 0 0 0
  202. 1 @CLR Males
  203. 2 @RGB 3276 48495 63568
  204. 1 @CLR Females
  205. 2 @RGB 63568 41942 59636
  206. 1 @CLR Cross Reference
  207. 2 @RGB 49972 4968 8539
  208. 1 @CLR Box Frame
  209. 2 @RGB 18349 18349 18349
  210. 1 @CLR Box Shadow
  211. 2 @RGB 32112 32112 32112
  212. 1 @CLR Lines
  213. 2 @RGB 0 0 0
  214. 1 @CKB Use Color
  215. 2 @CVL Y
  216. 1 @TXT Box Style
  217. 2 @TVL Simple Box
  218. 1 @TXT Name Format
  219. 2 @TVL Full Names
  220. 1 @TXT Life Span
  221. 2 @TVL On Second Line
  222. 1 @TXT Ancestor Format
  223. 2 @TVL Horizontal, Center Aligned
  224. 2 @CKB Reverse (R->L or B->T)
  225. 3 @CVL N
  226. 1 @TXT Descendant Format
  227. 2 @TVL Vertical, Center Aligned
  228. 2 @CKB Reverse (R->L or B->T)
  229. 3 @CVL N
  230. 1 @NUM Horiz Spacing
  231. 2 @VAL 8
  232. 1 @NUM Vert Spacing
  233. 2 @VAL 12
  234. 1 @NUM Horiz Padding
  235. 2 @VAL 2
  236. 1 @NUM Vert Padding
  237. 2 @VAL 2
  238. 1 @NUM Top Margin
  239. 2 @VAL 5
  240. 1 @NUM Left Margin
  241. 2 @VAL 5
  242. 1 @NUM Max Appearances
  243. 2 @VAL 1
  244. 1 @NUM Line Thickness
  245. 2 @VAL 1
  246. 1 @VRS 6
  247. @@GeDF@@@Index Preferences
  248. 0 @PREF@ @IDX
  249. 1 @STY Index
  250. 2 @FNT Geneva
  251. 2 @SZE 10
  252. 2 @FCE Plain
  253. 2 @CLR Color
  254. 3 @RGB 0 0 0
  255. 1 @CLR Odd Rows
  256. 2 @RGB 58638 58638 58638
  257. 1 @CLR Even Rows
  258. 2 @RGB 65535 65535 65535
  259. 1 @HGL
  260. 2 @CLR Grid Color
  261. 3 @RGB 63488 63488 63488
  262. 2 @CKB Use Grid Lines
  263. 3 @CVL Y
  264. 1 @NUM Row Padding
  265. 2 @VAL 2
  266. 1 @CKB Require Double Clicks
  267. 2 @CVL N
  268. 1 @IPU Clicking Opens
  269. 2 @IPV Y
  270. 1 @IPU Shift-Clicking Opens
  271. 2 @IPV N
  272. 1 @ICL Y
  273. 2 @ILB NAME
  274. 2 @IJT Left
  275. 2 @ITY 0
  276. 1 @ICL Y
  277. 2 @ILB BIRTH
  278. 2 @IJT Center
  279. 2 @ITY 1
  280. 1 @ICL Y
  281. 2 @ILB DEATH
  282. 2 @IJT Center
  283. 2 @ITY 2
  284. 1 @ICL Y
  285. 2 @ILB FATHER
  286. 2 @IEX FAMC.HUSB.NAME
  287. 2 @IJT Left
  288. 1 @ICL Y
  289. 2 @ILB MOTHER
  290. 2 @IEX FAMC.WIFE.NAME
  291. 2 @IJT Left
  292. 1 @VRS 6
  293. @@GeDF@@_Unknown_ Editing
  294.  
  295. @@GeDF@@@Editing Preferences
  296. 0 @PREF@ @EDT
  297. 1 @STY Editing
  298. 2 @FNT Verdana
  299. 2 @SZE 10
  300. 2 @FCE Plain
  301. 2 @CLR Color
  302. 3 @RGB 0 0 0
  303. 1 @STY Labels
  304. 2 @FNT Verdana
  305. 2 @SZE 10
  306. 2 @FCE Plain
  307. 2 @CLR Color
  308. 3 @RGB 0 0 0
  309. 1 @STY Static
  310. 2 @FNT Verdana
  311. 2 @SZE 10
  312. 2 @FCE Plain
  313. 2 @CLR Color
  314. 3 @RGB 0 0 0
  315. 1 @STY Buttons
  316. 2 @FNT Verdana
  317. 2 @SZE 10
  318. 2 @FCE Plain
  319. 2 @CLR Color
  320. 3 @RGB 0 0 0
  321. 1 @CLR Revision
  322. 2 @RGB 65000 0 0
  323. 1 @CLR Background
  324. 2 @RGB 51773 65535 52231
  325. 1 @CLR Field Top
  326. 2 @RGB 0 0 0
  327. 1 @CLR Field Bottom
  328. 2 @RGB 0 0 0
  329. 1 @CLR Button
  330. 2 @RGB 51773 65535 52231
  331. 1 @CLR Button Top
  332. 2 @RGB 60947 60947 60947
  333. 1 @CLR Button Bottom
  334. 2 @RGB 32767 32767 32767
  335. 1 @NUM Line Separation
  336. 2 @VAL 0
  337. 1 @NUM Left Margin
  338. 2 @VAL 4
  339. 1 @NUM Min Edit Lines
  340. 2 @VAL 5
  341. 1 @NUM Max Edit Lines
  342. 2 @VAL 10
  343. 1 @NUM Button Corners
  344. 2 @VAL 8
  345. 1 @VRS 6
  346. @@GeDF@@Custom Long Tags
  347. _FREL
  348. _MREL
  349. _SCHEMA
  350. _MEND
  351. _MSTAT
  352. @@GeDF@@GEDCOM Tag Phrases
  353. NOTE Notes on
  354. @@GeDF@@@ColumnWidths
  355. 175
  356. 70
  357. 70
  358. 140
  359. 140
  360. @@GeDF@@INDI Record Editing
  361. RightMargin 800
  362. LeftSkip 8
  363.  
  364. pass ficn
  365.  
  366. hskip 8
  367. icon Families View:Families
  368. help View families
  369. hskip -1
  370. icon Siblings View:Siblings
  371. help View siblings
  372. hskip -1
  373. icon Relatives View:Relatives...
  374. help Search for relatives
  375.  
  376. hskip 8
  377. icon Ancestors Tree:Ancestor Tree
  378. help Compile ancestor family tree
  379. hskip -1
  380. icon Descendants Tree:Descendant Tree
  381. help Compile descendant family tree
  382.  
  383. pass gmen
  384.  
  385. newLine 1
  386. Style label s=12 w=300 f=bold
  387. Text "Pedigree Chart for "
  388. Text *NAME
  389.  
  390. endiconbar 1
  391.  
  392. ! fspc = family group size for lines
  393. ! cgap = gap between columns
  394. ! iht = indi cell height
  395. ! idrp = indi cell space at top
  396. ! fskp = skip to family button
  397. Set fspc 74
  398. Set cgap 15
  399. Set iht 48
  400. set idrp 1
  401. Set fskp 7
  402. Set fbut 18
  403.  
  404. !------------------ Column 1 -----------------
  405.  
  406. Set ptop #vpos
  407. Set fsiz 170
  408.  
  409. ! This Person
  410. NewLine 2
  411. Style label w=#fsiz f=bold
  412. Text "Individual"
  413.  
  414. NewLine
  415. Set dtop #vpos
  416. NewLine 2
  417. HSkip 2
  418. Style label w=#fsiz b=button
  419. Height #iht
  420. CellBg 0 0 0
  421. help Click to edit this individual
  422.  
  423. NewLine -27
  424. HSkip #fsiz
  425. Style static w=8 h=2
  426. Border 3dframe tr
  427.  
  428. MoveTo #dtop
  429. Style button w=#fsiz b=button
  430. Height #iht
  431. CellBg 0xAA 0xD4 0xFF
  432. help Click to edit this individual
  433. GroupLink eIND
  434.   ShowAll NAME
  435.   ShowAll BIRT
  436.   ShowAll DEAT
  437.   ShowAll BAPM
  438.   ShowAll CHR
  439.   ShowAll BLES
  440.   ShowAll BARM
  441.   ShowAll BASM
  442.   ShowAll ADOP
  443.   ShowAll CHRA
  444.   ShowAll CONF
  445.   ShowAll FCOM
  446.   ShowAll ORDN
  447.   ShowAll GRAD
  448.   ShowAll EMIG
  449.   ShowAll IMMI
  450.   ShowAll NATU
  451.   ShowAll CENS
  452.   ShowAll RETI
  453.   ShowAll PROB
  454.   ShowAll BURI
  455.   ShowAll WILL
  456.   ShowAll CREM
  457.   ShowAll EVEN
  458.   ShowAll BAPL
  459.   ShowAll CONL
  460.   ShowAll ENDL
  461.   ShowAll SLGC
  462.   ShowAll OCCU
  463.   ShowAll EDUC
  464.   ShowAll DSCR
  465.   ShowAll RELI
  466.   ShowAll SSN
  467.   ShowAll IDNO
  468.   ShowAll PROP
  469.   ShowAll CAST
  470.   ShowAll NCHI
  471.   ShowAll NMR
  472.   ShowAll TITL
  473.   ShowAll NATI
  474.   ShowAll NOTE
  475.   ShowAll SOUR
  476.   ShowAll CHAN
  477. EndGroup
  478.  
  479. Sub fsiz 10
  480. MoveTo #dtop
  481. NewLine #idrp
  482. HSkip 5
  483. Style static w=#fsiz
  484. Text *this.NAME
  485.  
  486. NewLine -2
  487. HSkip 5
  488. Style static w=#fsiz
  489. Text *this.BIRT.DATE
  490.  
  491. NewLine -2
  492. HSkip 5
  493. Style static w=#fsiz
  494. Text *this.BIRT.PLAC
  495.  
  496. Add fsiz 10
  497. NewLine #fskp
  498.  
  499. ! Family Button
  500. Pass _FLK *FAMS
  501.  
  502. get *SEX
  503. if M
  504.   get *FAMS.WIFE
  505.   SetStr inam "Wife"
  506. else
  507.   get *FAMS.HUSB
  508.   SetStr inam "Husband"
  509. endif
  510. Set lnht 0
  511. Pass _IND *it
  512.  
  513. NewLine 20
  514. Style label w=#fsiz f=bold
  515. Text "Children"
  516.  
  517. Set cnum 1
  518. PassAll clst *FAMS.CHIL
  519.  
  520. !------------------ Column 2 -----------------
  521.  
  522. MoveTo #ptop
  523. HSkip #fsiz
  524. HSkip #cgap
  525. LeftSkip #hpos
  526.  
  527. ! Parents
  528. Pass _LNS
  529.  
  530. SetStr inam "Father"
  531. Set lnht 2
  532. Pass _IND *FAMC.HUSB
  533.  
  534. ! Family Button
  535. Pass _FLK *FAMC
  536.  
  537. SetStr inam "Mother"
  538. Set lnht 250
  539. Pass _IND *FAMC.WIFE
  540.  
  541. NewLine 20
  542. Style label w=#fsiz f=bold
  543. Text "Other Spouses"
  544.  
  545. Set cnum 0
  546. PassAll sbut *FAMS
  547.  
  548. !------------------ Column 3 -----------------
  549.  
  550. MoveTo #ptop
  551. HSkip #fsiz
  552. HSkip #cgap
  553. LeftSkip #hpos
  554.  
  555. ! P
  556. Pass _LNS
  557.  
  558. SetStr inam "Grandfather"
  559. Set lnht 2
  560. Pass _IND *FAMC.HUSB.FAMC.HUSB
  561.  
  562. ! Family Button
  563. Pass _FLK *FAMC.HUSB.FAMC
  564.  
  565. SetStr inam "Grandmother"
  566. Set lnht 100
  567. Pass _IND *FAMC.HUSB.FAMC.WIFE
  568.  
  569. ! M
  570. NewLine 154
  571. Pass _LNS
  572.  
  573. SetStr inam "Grandfather"
  574. Set lnht 2
  575. Pass _IND *FAMC.WIFE.FAMC.HUSB
  576.  
  577. ! Family Button
  578. Pass _FLK *FAMC.WIFE.FAMC
  579.  
  580. SetStr inam "Grandmother"
  581. Set lnht 100
  582. Pass _IND *FAMC.WIFE.FAMC.WIFE
  583.  
  584. !------------------ Column 4 -----------------
  585.  
  586. Set lnht -1
  587. MoveTo #ptop
  588. HSkip #fsiz
  589. HSkip #cgap
  590. LeftSkip #hpos
  591.  
  592. !PP
  593. Pass _LNS
  594.  
  595. SetStr inam "Gr. Grandfather"
  596. Pass _IND *FAMC.HUSB.FAMC.HUSB.FAMC.HUSB
  597.  
  598. ! Family Button
  599. Pass _FLK *FAMC.HUSB.FAMC.HUSB.FAMC
  600.  
  601. SetStr inam "Gr. Grandmother"
  602. Pass _IND *FAMC.HUSB.FAMC.HUSB.FAMC.WIFE
  603.  
  604. !PM
  605. Pass _LNS
  606.  
  607. SetStr inam "Gr. Grandfather"
  608. Pass _IND *FAMC.HUSB.FAMC.WIFE.FAMC.HUSB
  609.  
  610. ! Family Button
  611. Pass _FLK *FAMC.HUSB.FAMC.WIFE.FAMC
  612.  
  613. SetStr inam "Gr. Grandmother"
  614. Pass _IND *FAMC.HUSB.FAMC.WIFE.FAMC.WIFE
  615.  
  616. !MP
  617. Pass _LNS
  618.  
  619. SetStr inam "Gr. Grandfather"
  620. Pass _IND *FAMC.WIFE.FAMC.HUSB.FAMC.HUSB
  621.  
  622. ! Family Button
  623. Pass _FLK *FAMC.WIFE.FAMC.HUSB.FAMC
  624.  
  625. SetStr inam "Gr. Grandmother"
  626. Pass _IND *FAMC.WIFE.FAMC.HUSB.FAMC.WIFE
  627.  
  628. !MM
  629. Pass _LNS
  630.  
  631. SetStr inam "Gr. Grandfather"
  632. Pass _IND *FAMC.WIFE.FAMC.WIFE.FAMC.HUSB
  633.  
  634. ! Family Button
  635. Pass _FLK *FAMC.WIFE.FAMC.WIFE.FAMC
  636.  
  637. SetStr inam "Gr. Grandmother"
  638. Pass _IND *FAMC.WIFE.FAMC.WIFE.FAMC.WIFE
  639.  
  640. LeftSkip #dlmg
  641. NewLine
  642.  
  643. HideExcess
  644.  
  645.  
  646. @@GeDF@@NAME Editing
  647. newline
  648. get *msg
  649. if INDI
  650.   style label f=bold tw=1
  651.   text Name
  652.  
  653.   ! edit name
  654.   hskip 5
  655.   style editvalue w=-1 b=field
  656.   HideExcess
  657. else
  658.   ! start new line and label
  659.   style label tw=1 j=right
  660.   text Name:
  661.  
  662.   ! edit name
  663.   hskip 5
  664.   style editvalue w=-1 b=field
  665. endif
  666.  
  667. @@GeDF@@DATE Editing
  668. get *msg
  669. if FG
  670.   Style editvalue tw=1
  671.   Border frame lrb
  672.   Content date
  673. elseif Head
  674.   Style label j=right tw=1
  675.   Text Date:
  676.  
  677.   HSkip 5
  678.   Style editvalue b=field w=-1
  679.   Content date
  680. elseif OK
  681.   Style label tw=1 j=right
  682.   text Date:
  683.  
  684.   hskip 5
  685.   Style editvalue b=field
  686.   Content date
  687.   Width -1
  688. endif
  689. @@GeDF@@DEAT Editing
  690. use iEVT Editing
  691. @@GeDF@@NOTE Editing
  692. get *msg
  693. if list
  694.   if tagexists
  695.     get #lmgn
  696.     if #dlmg
  697.       NewLine
  698.       Style label tw=1 f=bold
  699.       Text Notes
  700.       HSkip 5
  701.     elseif 5
  702.       NewLine
  703.       Style label tw=2 j=right
  704.       Text Notes:
  705.       HSkip 5
  706.     endif
  707.  
  708.     Style button w=-1 f=underline
  709.     Blue
  710.     get *valu
  711.     if validlink
  712.       Link *valu
  713.       SetStr tfst *valu.next
  714.       ifEmpty *tfst
  715.         SetStr tfst <Notes with first line empty>
  716.       else
  717.         Count *valu.next
  718.         ifNot 1
  719.           CatStr tfst ...
  720.         endif
  721.       endif
  722.     else
  723.       SetStr tfst *valu
  724.       ifEmpty *tfst
  725.         SetStr tfst <Notes with first line empty>
  726.       else
  727.         Count *next
  728.         ifNot 0
  729.           CatStr tfst ...
  730.         endif
  731.       endif
  732.       StructLink eNOT
  733.     endif
  734.     Text *tfst
  735.     Help Click to view and edit notes
  736.   else
  737.     Style button b=button j=center h=14
  738.     Text "Notes"
  739.     Width -6
  740.     NewLink
  741.     Help Click to attach notes
  742.     HSkip 5
  743.   endif
  744. else
  745.   Style button h=14 j=center s=9 b=button
  746.  
  747.   ! has NOTEs
  748.   if tagexists
  749.     Text Notes
  750.     get *valu
  751.     if validlink
  752.       Link *valu
  753.     else
  754.       StructLink NOTE
  755.     endif
  756.     Help Click to view and edit notes
  757.  
  758.     ! does not have NOTEs
  759.   else
  760.     Text Add Notes
  761.     get *rec
  762.     if HEAD
  763.       StructLink NOTE
  764.     else
  765.       NewLink
  766.     endif
  767.     Help Click to attach notes
  768.   endif
  769.   Width -6
  770.   HSkip 5
  771. endif
  772. @@GeDF@@ADDR Editing
  773. ! address label
  774. newline
  775. style label j=right tw=1
  776. text Address:
  777.  
  778. hskip 5
  779. style editcont b=field w=-1
  780. @@GeDF@@SUBM Record Editing
  781. ifNot nowprinting
  782.   Pass ficn
  783.   Pass gmen
  784.   EndIconBar 3
  785.   Bg 0xE8 0xE8 0xE8
  786. else
  787.   Bg 0xFF 0xFF 0xFF
  788. endif
  789.  
  790. toolbg 0xD8 0xD8 0xD8
  791. lineskip -1
  792.  
  793. if nowprinting
  794.   bg 0xFF 0xFF 0xFF
  795. endif
  796.  
  797. newline 3
  798. settab 80
  799. settab 120
  800. show NAME
  801.  
  802. endtoolbar 4
  803. newline 2
  804.  
  805. show ADDR
  806. show PHON
  807. show LANG
  808.  
  809. HideExcess
  810. @@GeDF@@SUBM Editing
  811. get *rec
  812. if SUBN
  813.   get HEAD
  814. endif
  815. if HEAD
  816.   style button j=center b=button s=9 h=14
  817.   get *valu
  818.   if validlink
  819.     help "View "
  820.   else
  821.     text "Link "
  822.     help "Link to a "
  823.   endif
  824.   text Submitter
  825.   newlink
  826.   help submitter record
  827.   width -6
  828.   hskip 5
  829. endif
  830. @@GeDF@@NOTE Record Editing
  831. ToolBg 0xAA 0xD4 0xFF
  832. pass Nlab
  833. style edittext
  834.  
  835. showall CHAN
  836. HideExcess
  837. @@GeDF@@REPO Record Editing
  838. ifNot nowprinting
  839.   Pass ficn
  840.   Pass gmen
  841.   EndIconBar 3
  842.   Bg 0xE8 0xE8 0xE8
  843. else
  844.   Bg 0xFF 0xFF 0xFF
  845. endif
  846.  
  847. toolbg 0xD8 0xD8 0xD8
  848. lineskip -1
  849.  
  850. newline 3
  851. show NAME
  852.  
  853. endtoolbar 4
  854. newline 3
  855.  
  856. show ADDR
  857. leftskip 82
  858. newline 3
  859. showall NOTE
  860.  
  861. ifnot nowprinting
  862.   show NOTE
  863. endif
  864.  
  865. HideExcess
  866. @@GeDF@@AUTH Editing
  867. newline
  868. style label j=right tw=1
  869. text Author:
  870.  
  871. hskip 5
  872. if nowprinting
  873.   MaxLines 15
  874. endif
  875. style editcont b=field w=-1
  876. @@GeDF@@TITL Editing
  877. get *rec
  878. if INDI
  879.   newline
  880.   Style label f=bold tw=2
  881.   Text *name
  882.  
  883.   HSkip 5
  884.   Style editvalue b=field w=-1
  885.  
  886.   HideExcess
  887. else
  888.   NewLine
  889.   Style label j=right tw=1
  890.   Text Title:
  891.  
  892.   HSkip 5
  893.   Style editcont b=field w=-1
  894. endif
  895. @@GeDF@@SOUR Record Editing
  896. ifNot nowprinting
  897.   Pass ficn
  898.   Pass gmen
  899.   EndIconBar 3
  900.   Bg 0xE8 0xE8 0xE8
  901. else
  902.   Bg 0xFF 0xFF 0xFF
  903. endif
  904.  
  905. ToolBg 0xD8 0xD8 0xD8
  906. LineSkip -1
  907.  
  908. SetTab 90
  909. MaxLines 2
  910.  
  911. NewLine 3
  912. Show TITL Source
  913.  
  914. EndToolbar 4
  915. NewLine 3
  916.  
  917. Show AUTH
  918. Show ABBR
  919.  
  920. MinLines 3
  921. MaxLines 5
  922. Show PUBL
  923.  
  924. LineSkip 2
  925. Show REPO
  926.  
  927. Show TEXT
  928.  
  929. NewLine
  930. ifHasTags NOTE
  931.   Style label j=right tw=1
  932.   Text Notes:
  933.   HSkip 5
  934.   LeftSkip #hpos
  935.   ShowAll NOTE list
  936.   NewLine
  937.   LeftSkip #dlmg
  938. endif
  939.  
  940. ifNot nowprinting
  941.   Style label j=right tw=1
  942.   Text Attach:
  943.  
  944.   HSkip 5
  945.   Show NOTE list
  946. endif
  947.  
  948. HideExcess
  949. @@GeDF@@PUBL Editing
  950. NewLine
  951. Style label j=right tw=1
  952. Text Publisher:
  953.  
  954. HSkip 5
  955. if nowprinting
  956.   MaxLines 15
  957. endif
  958. Style editcont b=field w=-1
  959. @@GeDF@@REPO Editing
  960. ! Note button
  961. NewLine
  962. Style label tw=1 j=right
  963. Text Repository:
  964. HSkip 5
  965.  
  966. get *valu
  967. if tagexists
  968.   Style button w=-1 f=underline
  969.   get *valu.NAME
  970.   ifEmpty
  971.     get "(unnamed repository):
  972.   endif
  973.   Text *it
  974.   Blue
  975.   Link *valu
  976.   Width -6
  977.   help View repository record
  978.   HSkip 5
  979.  
  980.   NewLine
  981.   Tab 1
  982. else
  983.   Style button j=center b=button s=9 h=14
  984.   Text "Add Link"
  985.   NewLink
  986.   Width -6
  987. endif
  988. HSkip 5
  989. ShowAll NOTE
  990.  
  991. ifnot nowprinting
  992.   Show NOTE
  993. endif
  994.  
  995. HideExcess
  996. @@GeDF@@PHON Editing
  997. use ABBR Editing
  998. @@GeDF@@SOUR Editing
  999. get *rec
  1000. if HEAD
  1001.   style label j=right tw=1
  1002.   text System ID:
  1003.  
  1004.   hskip 5
  1005.   style editvalue b=field w=-1
  1006.  
  1007.   show NAME
  1008.  
  1009.   endtoolbar 4
  1010.   newline 3
  1011.  
  1012.   show VERS
  1013.   show CORP
  1014.   show DATA
  1015. else
  1016.   if tagexists
  1017.     get #lmgn
  1018.     if #dlmg
  1019.       NewLine
  1020.       Style label tw=1 f=bold
  1021.       Text Sources
  1022.       HSkip 5
  1023.     elseif 5
  1024.       NewLine
  1025.       Style label tw=2 j=right
  1026.       Text Sources:
  1027.       HSkip 5
  1028.     endif
  1029.     get *valu
  1030.     if validlink
  1031.       Style button b=button j=center h=14 s=9
  1032.       get *it.ABBR
  1033.       ifempty
  1034.         get *valu.TITL
  1035.         ifempty
  1036.           get <Unnamed Source>
  1037.         endif
  1038.       endif
  1039.       text "Details"
  1040.       width -12
  1041.       structlink SOUa
  1042.       help Click for details of this citation
  1043.     
  1044.       hskip 5
  1045.       style button w=-1 f=underline
  1046.       text *it
  1047.       link *valu
  1048.       help View source record
  1049.     else
  1050.       Style button f=underline w=-1
  1051.       text "<Embedded Source>"
  1052.       structlink SOUb
  1053.       help Click for source information
  1054.     endif
  1055.     blue
  1056.   else
  1057.     style button b=button s=9 h=14 j=center
  1058.     Text Source
  1059.     addlink
  1060.     width -6
  1061.     help Click to attach a new source
  1062.     hskip 5
  1063.   endif
  1064. endif
  1065. @@GeDF@@ABBR Editing
  1066. ! label on current line
  1067. newline
  1068. style label j=right tw=1
  1069. text *name
  1070. text :
  1071.  
  1072. ! edit the date
  1073. hskip 5
  1074. style editvalue b=field w=-1
  1075. @@GeDF@@HEAD Record Editing
  1076. bg 0xE8 0xE8 0xE8
  1077. toolbg 0xD8 0xD8 0xD8
  1078. lineskip -1
  1079.  
  1080. if nowprinting
  1081.   bg 0xFF 0xFF 0xFF
  1082. endif
  1083.  
  1084. settab 100
  1085. settab 130
  1086. set tab1 100
  1087. set tab2 130
  1088.  
  1089. newline 3
  1090. show SOUR Header
  1091.  
  1092. newline 5
  1093. tab 1
  1094. hskip 5
  1095. show SUBM
  1096. show SUBN
  1097. newline 5
  1098.  
  1099. show DEST
  1100. show DATE Head
  1101. show FILE
  1102. show COPR
  1103. show GEDC
  1104. show CHAR
  1105. show LANG
  1106. show PLAC Header
  1107.  
  1108. newline 5
  1109. add tab1 5
  1110. leftskip #tab1
  1111. showall NOTE
  1112. show NOTE
  1113.  
  1114. HideExcess
  1115. @@GeDF@@CORP Editing
  1116. newline
  1117. style label j=right tw=1
  1118. text Corporation:
  1119.  
  1120. hskip 5
  1121. style editvalue b=field w=-1
  1122.  
  1123. newline
  1124. show ADDR
  1125. @@GeDF@@COPR Editing
  1126. use ABBR Editing
  1127. @@GeDF@@SUBN Editing
  1128. style button j=center b=button s=9 h=14
  1129. text Submission
  1130. link *valu
  1131. width -6
  1132. help View file submission record
  1133. hskip 5
  1134. @@GeDF@@GEDC Editing
  1135. newline
  1136. show VERS GEDCOM
  1137. cleartabs
  1138. settab 120
  1139. show FORM GEDCOM Form:
  1140. @@GeDF@@DEST Editing
  1141. use ABBR Editing
  1142. @@GeDF@@FILE Editing
  1143. use ABBR Editing
  1144. @@GeDF@@OBJE Record Editing
  1145. ifNot nowprinting
  1146.   Bg 0xE8 0xE8 0xE8
  1147. else
  1148.   Bg 0xFF 0xFF 0xFF
  1149. endif
  1150. lineskip -1
  1151.  
  1152. newline 3
  1153. style label j=center w=-1
  1154. text This Pedigree Format does display
  1155. text " encoded multimedia objects"
  1156. border frame ltrb
  1157.  
  1158. HideExcess
  1159. @@GeDF@@SUBN Record Editing
  1160. ifNot nowprinting
  1161.   Bg 0xE8 0xE8 0xE8
  1162. else
  1163.   Bg 0xFF 0xFF 0xFF
  1164. endif
  1165.  
  1166. lineskip -1
  1167.  
  1168. if nowprinting
  1169.   bg 0xFF 0xFF 0xFF
  1170. endif
  1171.  
  1172. newline 3
  1173. style label j=right tw=2
  1174. text Submitter:
  1175.  
  1176. hskip 5
  1177. show SUBM OK
  1178. newline 3
  1179.  
  1180. newline
  1181. show FAMF
  1182. show TEMP
  1183. show ANCE
  1184. show DESC
  1185. show ORDI
  1186.  
  1187. HideExcess
  1188. @@GeDF@@CHAR Editing
  1189. ! label on current line
  1190. newline
  1191. style label j=right tw=1
  1192. text *name
  1193. text :
  1194.  
  1195. ! edit the date
  1196. hskip 5
  1197. style button w=-1 b=field
  1198. CellBg 0xE0 0xE0 0xE0
  1199. text *valu
  1200. MenuLink File:Character Set...
  1201. help Click to change character set for file
  1202.  
  1203. cleartabs
  1204. settab #tab2
  1205. show VERS Char. Set
  1206. @@GeDF@@LANG Editing
  1207. use ABBR Editing
  1208. @@GeDF@@VERS Editing
  1209. ! label on current line
  1210. style label j=right tw=1
  1211. get *msg
  1212. if
  1213. else
  1214.   text *it
  1215.   text " "
  1216. endif
  1217. text Vers.:
  1218.  
  1219. ! edit the version
  1220. hskip 5
  1221. get *msg
  1222. if "Char. Set"
  1223.   style button w=-1 b=field s=10
  1224.   CellBg 0xE0 0xE0 0xE0
  1225.   black
  1226.   text *valu
  1227.   MenuLink File:Character Set...
  1228.   help Click to change character set for file
  1229. else
  1230.   style editvalue b=field w=-1
  1231. endif
  1232. @@GeDF@@PLAC Editing
  1233. get *msg
  1234. if OK
  1235.   NewLine
  1236.   Style static tw=2 j=right
  1237.   Text Place:
  1238.  
  1239.   HSkip 5
  1240.   Style editvalue b=field
  1241.   Width -1
  1242. elseif FG
  1243.   Style label j=right w=40
  1244.   Text Place:
  1245.   Border frame b
  1246.  
  1247.   HSkip 0
  1248.   Style editvalue tw=2
  1249.   Border frame lrb
  1250.  
  1251.   HSkip 0
  1252.   Style label w=1
  1253.   Border frame r
  1254. else if Header
  1255.   Show FORM Place Format:
  1256. else if Source
  1257.   NewLine
  1258.   Style static b=field tw=1
  1259.   Text Place:
  1260.  
  1261.   HSkip 0
  1262.   Style editvalue w=-1 b=field
  1263. endif
  1264. @@GeDF@@FAM Record Editing
  1265. Bg 0xFF 0xF4 0xD3
  1266. SetTab 65
  1267. SetTab 185
  1268. SetTab 230
  1269. SetTab 503
  1270. RightMargin 507
  1271.  
  1272. ifNot nowprinting
  1273.   Pass ficn
  1274.   Pass gmen
  1275.   NewLine
  1276.   Style label s=14 f=bold w=-1
  1277.   Text Family Group Chart
  1278. else
  1279.   Bg 0xFF 0xFF 0xFF
  1280.   UseEditingTmpls
  1281.   HeaderText \FNVerdana;FS14;C+;BO\
  1282.   HeaderText Family Group Chart
  1283.   NoFooter
  1284.  
  1285.   Text \BM*M;TM*m\
  1286.   HSkip 0
  1287. endif
  1288.  
  1289. ifNot nowprinting
  1290.   NewLine 3
  1291.   EndIconBar
  1292.   NewLine 6
  1293. endif
  1294.  
  1295. Show HUSB Husband:
  1296. Show WIFE Wife:
  1297. Pass FRul
  1298. Show MARR
  1299.  
  1300. NewLine 1
  1301. ifHasTags CHIL
  1302.   Pass FRul
  1303.   Set cbut #vpos
  1304.   Style label w=1
  1305.   Border frame l
  1306.  
  1307.   HSkip 0
  1308.   Style label tw=4
  1309.   Text " Children"
  1310.   Border frame lr
  1311.  
  1312.   HSkip 0
  1313.   Style label w=1
  1314.   Border frame r
  1315.  
  1316.   ifNot nowprinting
  1317.     NewLine
  1318.     Set csts #vpos
  1319.  
  1320.     MoveTo #cbut
  1321.     NewLine 1
  1322.     HSkip 100
  1323.     Style button j=center b=button s=9 h=14
  1324.     Text Attach
  1325.     Width -6
  1326.     MenuLink Attach:Child
  1327.  
  1328.     HSkip 3
  1329.     Style button j=center b=button s=9 h=14
  1330.     Text Detach
  1331.     Width -6
  1332.     MenuLink Detach:Child
  1333.  
  1334.     MoveTo #csts
  1335.   endif
  1336.  
  1337.   Set cnum 0
  1338.   ShowAll CHIL
  1339.   NewLine 1
  1340. endif
  1341. Pass FRul
  1342.  
  1343. if nowprinting
  1344.   HideExit
  1345. endif
  1346.  
  1347. LineSkip 2
  1348. NewLine 2
  1349.  
  1350. Style label tw=1 f=bold
  1351. Text Events
  1352.  
  1353. HSkip 5
  1354. Style button b=button j=center h=14 s=9
  1355. Text View and Edit
  1356. Width -12
  1357. help Click to edit events of this family
  1358. GroupLink eFAM
  1359.   ShowAll ENGA
  1360.   ShowAll MARB
  1361.   ShowAll MARC
  1362.   ShowAll MARL
  1363.   ShowAll MARS
  1364.   ShowAll DIV
  1365.   ShowAll DIVF
  1366.   ShowAll ANUL
  1367.   ShowAll CENS
  1368.   ShowAll EVEN
  1369.   ShowAll SLGS
  1370. EndGroup
  1371.  
  1372. NewLine
  1373. ifHasTags NOTE
  1374.   Show NOTE list
  1375.   NewLine
  1376.   Tab 1
  1377.   HSkip 5
  1378.   LeftSkip #hpos
  1379.   ShowAll NOTE list
  1380.   NewLine
  1381.   LeftSkip #dlmg
  1382. endif
  1383.  
  1384. ifHasTags SOUR
  1385.   Show SOUR
  1386.   NewLine
  1387.   Tab 1
  1388.   HSkip 5
  1389.   LeftSkip #hpos
  1390.   ShowAll SOUR
  1391.   NewLine
  1392.   LeftSkip #dlmg
  1393. endif
  1394.  
  1395. Style label tw=1 f=bold
  1396. Text Attach
  1397.  
  1398. HSkip 5
  1399. Show NOTE list
  1400. Show SOUR
  1401.  
  1402. showall CHAN
  1403.  
  1404. HideExcess
  1405. @@GeDF@@HUSB Editing
  1406. Pass FRul
  1407.  
  1408. ! Name field and line
  1409. NewLine
  1410. Style static w=1
  1411. Border frame l
  1412. HSkip 0
  1413.  
  1414. Style static tw=1 j=right
  1415. Text *msg
  1416. Border frame ltb
  1417.  
  1418. HSkip 0
  1419. if tagexists
  1420.   Style button
  1421.   get *valu.NAME
  1422.   ifNotEmpty
  1423.     Text *it
  1424.     Link *valu
  1425.     help "View "
  1426.     get *msg
  1427.     if "Husband:"
  1428.       help husband
  1429.     else
  1430.       help wife
  1431.     endif
  1432.   else
  1433.     Text <unknown>
  1434.     Black
  1435.   endif
  1436.   if nowprinting
  1437.     Face bold
  1438.   else
  1439.     Blue
  1440.   endif
  1441. else
  1442.   Style label
  1443. endif
  1444. TabWidth 3
  1445. Border frame btr
  1446.  
  1447. HSkip 0
  1448. Style static w=1
  1449. Border frame r
  1450.  
  1451. ! Birth date and place
  1452. NewLine
  1453. Style label w=1
  1454. Border frame l
  1455. HSkip 0
  1456.  
  1457. Style label j=right tw=1
  1458. Text Born:
  1459. Border frame lb
  1460.  
  1461. HSkip 0
  1462. Style label tw=1
  1463. Text *valu.BIRT.DATE
  1464. Border frame b
  1465.  
  1466. HSkip 0
  1467. Style label j=right w=40
  1468. Text Place:
  1469. Border frame b
  1470.  
  1471. HSkip 0
  1472. Style label tw=2
  1473. Text *valu.BIRT.PLAC
  1474. Border frame rb
  1475.  
  1476. HSkip 0
  1477. Style label w=1
  1478. Border frame r
  1479.  
  1480. ! Death date and place
  1481. NewLine
  1482. Style label w=1
  1483. Border frame l
  1484. HSkip 0
  1485.  
  1486. Style label j=right tw=1
  1487. Text Died:
  1488. Border frame lb
  1489.  
  1490. HSkip 0
  1491. Style label tw=1
  1492. Text *valu.DEAT.DATE
  1493. Border frame b
  1494.  
  1495. HSkip 0
  1496. Style label j=right w=40
  1497. Text Place:
  1498. Border frame b
  1499.  
  1500. HSkip 0
  1501. Style label tw=2
  1502. Text *valu.DEAT.PLAC
  1503. Border frame rb
  1504.  
  1505. HSkip 0
  1506. Style label w=1
  1507. Border frame r
  1508.  
  1509. ! Father and Mother
  1510. NewLine
  1511. Style label w=1
  1512. Border frame l
  1513. HSkip 0
  1514.  
  1515. Style label j=right tw=1
  1516. Text Father:
  1517. Border frame lb
  1518.  
  1519. HSkip 0
  1520. get *valu.FAMC.HUSB
  1521. ifEmpty
  1522.   Style label
  1523. else
  1524.   Style button
  1525.   Link *it
  1526.   Text *it.NAME
  1527.   help View father
  1528.   ifNot nowprinting
  1529.     Blue
  1530.   endif
  1531. endif
  1532. TabWidth 2
  1533. Border frame b
  1534.  
  1535. HSkip 0
  1536. Style label j=right w=50
  1537. Text Mother:
  1538. Border frame b
  1539.  
  1540. HSkip 0
  1541. get *valu.FAMC.WIFE
  1542. ifEmpty
  1543.   Style label
  1544. else
  1545.   Style button
  1546.   Link *it
  1547.   Text *it.NAME
  1548.   help View mother
  1549.   ifNot nowprinting
  1550.     Blue
  1551.   endif
  1552. endif
  1553. TabWidth 1
  1554. Border frame rb
  1555.  
  1556. HSkip 0
  1557. Style label w=1
  1558. Border frame r
  1559. @@GeDF@@WIFE Editing
  1560. use HUSB Editing
  1561. @@GeDF@@MARR Editing
  1562. pass FRul
  1563. newline
  1564. style label w=1
  1565. border frame l
  1566. hskip 0
  1567.  
  1568. style label j=right tw=1
  1569. text Married:
  1570. border frame lb
  1571.  
  1572. show DATE FG
  1573. hskip -1
  1574. show PLAC FG
  1575.  
  1576. HideExcess
  1577. @@GeDF@@CHIL Editing
  1578. pass FRul
  1579. newline
  1580. style label w=1
  1581. border frame l
  1582. hskip 0
  1583.  
  1584. add cnum 1
  1585. style label w=16 j=center f=bold
  1586. cellbg 0 0 0
  1587. rgb 0xFF 0xFF 0xFF
  1588. text #cnum
  1589. border frame ltbr
  1590. hskip 0
  1591.  
  1592. style label tw=1 j=right
  1593. text Sex:
  1594. border frame bt
  1595.  
  1596. hskip 0
  1597. style label
  1598. text *valu.SEX
  1599. border frame bt
  1600. width -5
  1601.  
  1602. hskip 0
  1603. style label j=right
  1604. text Name:
  1605. border frame bt
  1606. width -10
  1607.  
  1608. hskip 0
  1609. style button tw=3
  1610. get *valu.NAME
  1611. ifnotempty
  1612.   text *it
  1613.   link *valu
  1614.   help View child
  1615. else
  1616.   text <unknown>
  1617. endif
  1618. border frame btr
  1619. if nowprinting
  1620.   face bold
  1621. else
  1622.   blue
  1623. endif
  1624.  
  1625. hskip 0
  1626. style label w=1
  1627. border frame r
  1628.  
  1629. ! Birth date and place
  1630. newline
  1631. style label w=1
  1632. border frame l
  1633. hskip 0
  1634.  
  1635. style label j=right tw=1
  1636. text Born:
  1637. border frame lb
  1638.  
  1639. hskip 0
  1640. style label tw=1
  1641. text *valu.BIRT.DATE
  1642. border frame b
  1643.  
  1644. hskip 0
  1645. style label j=right w=40
  1646. text Place:
  1647. border frame b
  1648.  
  1649. hskip 0
  1650. style label tw=2
  1651. text *valu.BIRT.PLAC
  1652. border frame rb
  1653.  
  1654. hskip 0
  1655. style label w=1
  1656. border frame r
  1657.  
  1658. ! Death date and place
  1659. newline
  1660. style label w=1
  1661. border frame l
  1662. hskip 0
  1663.  
  1664. style label j=right tw=1
  1665. text Died:
  1666. border frame lb
  1667.  
  1668. hskip 0
  1669. style label tw=1
  1670. text *valu.DEAT.DATE
  1671. border frame b
  1672.  
  1673. hskip 0
  1674. style label j=right w=40
  1675. text Place:
  1676. border frame b
  1677.  
  1678. hskip 0
  1679. style label tw=2
  1680. text *valu.DEAT.PLAC
  1681. border frame rb
  1682.  
  1683. hskip 0
  1684. style label w=1
  1685. border frame r
  1686.  
  1687. ! Child's spouses
  1688. setstr csex *valu.SEX
  1689. get *valu.FAMS
  1690. ifempty
  1691.   pass slst *valu.FAMS
  1692. else
  1693.   passall slst *valu.FAMS
  1694. endif
  1695.  
  1696. @@GeDF@@FAMF Editing
  1697. ! static text with level and tab
  1698. newline
  1699. get *name
  1700. if
  1701.   style static
  1702.   text *lev
  1703.   text " "
  1704.   text *tag
  1705.   text " "
  1706. else
  1707.   style label
  1708.   text *it
  1709.   text :
  1710. endif
  1711. tabwidth 2
  1712. justify right
  1713.  
  1714. ! edit field with value
  1715. hskip 5
  1716. style editvalue b=field w=-1
  1717. newline
  1718. @@GeDF@@TEMP Editing
  1719. use FAMF Editing
  1720. @@GeDF@@ANCE Editing
  1721. use FAMF Editing
  1722. @@GeDF@@DESC Editing
  1723. use FAMF Editing
  1724. @@GeDF@@ORDI Editing
  1725. use FAMF Editing
  1726. @@GeDF@@ADR1 Editing
  1727. ! label on current line
  1728. newline
  1729. style label j=right w=110
  1730. text *name
  1731. text :
  1732.  
  1733. ! edit the date
  1734. hskip 5
  1735. style editvalue b=field w=-1
  1736. @@GeDF@@CITY Editing
  1737. use ADR1 Editing
  1738. @@GeDF@@STAE Editing
  1739. use ADR1 Editing
  1740. @@GeDF@@POST Editing
  1741. use ADR1 Editing
  1742. @@GeDF@@CTRY Editing
  1743. use ADR1 Editing
  1744. @@GeDF@@FORM Editing
  1745. ! label on current line
  1746. style label j=right tw=1
  1747. get *msg
  1748. ifnotempty
  1749.   text *msg
  1750. else
  1751.   text Form:
  1752. endif
  1753.  
  1754. ! edit the version
  1755. hskip 5
  1756. style editvalue b=field w=-1
  1757. @@GeDF@@TEXT Editing
  1758. NewLine
  1759. Style label j=right tw=1
  1760. Text Source Text:
  1761. HSkip 5
  1762.  
  1763. ifNot nowprinting
  1764.   MinLines 8
  1765.   Style editcont w=-1 b=field
  1766.   help Enter any text from the source
  1767. else
  1768.   Style edittext w=-1
  1769. endif
  1770. @@GeDF@@DATA Editing
  1771. get *rec
  1772. if HEAD
  1773.   newline
  1774.   style label tw=1 j=right
  1775.   text Source Data:
  1776.  
  1777.   hskip 5
  1778.   style editvalue b=field w=-1
  1779.  
  1780.   cleartabs
  1781.   settab #tab2
  1782.   show DATE Head
  1783.   show COPR
  1784.  
  1785. elseif SOUR
  1786.   newline
  1787.   style label w=-1
  1788.   text Type of Data Recorded in this Source:
  1789.  
  1790.   show EVEN
  1791.   show AGNC
  1792.   newline 5
  1793.   tab 1
  1794.   hskip 5
  1795.   show NOTE Data
  1796.   newline 5
  1797.  
  1798. else
  1799.   show TEXT
  1800. endif
  1801. @@GeDF@@EVEN Editing
  1802. get *rec
  1803. if FAM
  1804.   get INDI
  1805. endif
  1806. if SOUR
  1807.   Style label tw=1 j=right
  1808.   Text "Events:"
  1809.  
  1810.   HSkip 5
  1811.   Style editvalue b=field w=-1
  1812.  
  1813.   Show DATE Head
  1814.   Show PLAC Source
  1815.  
  1816. elseif INDI
  1817.   get *TYPE
  1818.   ifempty
  1819.     get "Event"
  1820.   endif
  1821.   Style label f=bold tw=1
  1822.   Text *it
  1823.  
  1824.   Show DATE OK
  1825.   Show PLAC OK
  1826.  
  1827.   ifHasTags NOTE
  1828.     LeftSkip 5
  1829.     Show NOTE list
  1830.     NewLine
  1831.     Tab 2
  1832.     HSkip 5
  1833.     LeftSkip #hpos
  1834.     ShowAll NOTE list
  1835.     NewLine
  1836.     LeftSkip 4
  1837.   endif
  1838.  
  1839.   NewLine
  1840.   Style label tw=2 j=right
  1841.   Text Attach:
  1842.  
  1843.   HSkip 5
  1844.   Show NOTE list
  1845.  
  1846.   Pass hlin
  1847.  
  1848.   HideExcess
  1849.  
  1850. endif
  1851. @@GeDF@@AGNC Editing
  1852. use ABBR Editing
  1853. @@GeDF@@slst Editing
  1854. newline
  1855. style label w=1
  1856. border frame l
  1857. hskip 0
  1858.  
  1859. style label j=right tw=1
  1860. text Spouse:
  1861. border frame lb
  1862.  
  1863. hskip 0
  1864. style button
  1865. get *csex
  1866. if "M"
  1867.   get *msg.WIFE
  1868.   help View child’s wife
  1869. else
  1870.   get *msg.HUSB
  1871.   help View child’s husband
  1872. endif
  1873. link *it
  1874. text *it.NAME
  1875. tabwidth 3
  1876. border frame rb
  1877. ifnot nowprinting
  1878.   blue
  1879. endif
  1880.  
  1881. hskip 0
  1882. style label w=1
  1883. border frame r
  1884. @@GeDF@@_IND Editing
  1885. NewLine 2
  1886. Style label w=#fsiz f=bold
  1887. Text *inam
  1888.  
  1889. NewLine
  1890. Set dtop #vpos
  1891. Style button w=#fsiz b=button
  1892. Height #iht
  1893. Link *msg
  1894. ifnotempty *msg
  1895.   help Click for pedigree of this individual
  1896. endif
  1897.  
  1898. get #lnht
  1899. ifNot 0
  1900.   NewLine
  1901.   Set midl #vpos
  1902.   Sub midl #dtop
  1903.   Div midl 2
  1904.   Mult midl -1
  1905.   NewLine #midl
  1906.   if -1
  1907.     get *msg.FAMC
  1908.     ifNotEmpty
  1909.       HSkip #fsiz
  1910.       Style static w=8 h=2
  1911.       Border 3dframe t
  1912.     endif
  1913.   else
  1914.     HSkip #fsiz
  1915.     Style static w=8 h=#lnht
  1916.     Border 3dframe tr
  1917.   endif
  1918. endif
  1919.  
  1920. Sub fsiz 10
  1921. MoveTo #dtop
  1922. NewLine #idrp
  1923. HSkip 5
  1924. Style static w=#fsiz
  1925. Text *msg.NAME
  1926.  
  1927. NewLine -2
  1928. HSkip 5
  1929. Style static w=#fsiz
  1930. Text *msg.BIRT.DATE
  1931.  
  1932. NewLine -2
  1933. HSkip 5
  1934. Style static w=#fsiz
  1935. Text *msg.BIRT.PLAC
  1936.  
  1937. Add fsiz 10
  1938. NewLine #fskp
  1939. @@GeDF@@_FLK Editing
  1940. NewLine
  1941. set ftop #vpos
  1942. Newline 2
  1943. set bsiz #fsiz
  1944. sub bsiz 100
  1945. set indt #fsiz
  1946. sub indt #bsiz
  1947.  
  1948. hskip #indt
  1949. hskip 2
  1950. style label w=#bsiz b=button
  1951. height #fbut
  1952. cellbg 0 0 0
  1953. ifnotempty *msg
  1954.   help Open family record
  1955. endif
  1956.  
  1957. MoveTo #ftop
  1958. hskip #indt
  1959. style button w=#bsiz b=button j=center
  1960. height #fbut
  1961. cellbg 0xFF 0xF4 0xD3
  1962. link *msg
  1963. ifempty *msg
  1964.   text "(no family)"
  1965. else
  1966.   text "Family"
  1967.   face bold
  1968. endif
  1969.  
  1970. NewLine -14
  1971. @@GeDF@@_LNS Editing
  1972. set ltop #vpos
  1973. newline 27
  1974. hskip -7
  1975. style static w=7 h=#fspc
  1976. border 3dframe ltb
  1977.  
  1978. MoveTo #ltop
  1979. @@GeDF@@INDI Record Printing
  1980. Bg 0xFF 0xFF 0xFF
  1981. Text \BM*M;TM*m\
  1982. HSkip 0
  1983.  
  1984. SetTab 178
  1985. SetTab 345
  1986. SetTab 512
  1987. RightMargin 514
  1988.  
  1989. HeaderText \TM*m;LM*e;RM*E;PU;FNTimes;FS14;R+\
  1990. HeaderText Chart No. \HR24p;VS0\
  1991. HeaderText \PO;FS18;BO;C+\Pedigree Chart\VS0\
  1992. HeaderText *NAME
  1993. NoFooter
  1994.  
  1995. Style label j=center w=175 f=plain
  1996. Font Times
  1997. Text Number 1 on this chart is the same
  1998. Border frame ltr
  1999.  
  2000. NewLine
  2001. Style label j=center w=175 f=plain
  2002. Text as Number ____ on Chart No. ____
  2003. Border frame lbr
  2004. Font Times
  2005.  
  2006. EndToolbar
  2007.  
  2008. !------------------ Column 1 -----------------
  2009.  
  2010. Set dtop #vpos
  2011. Style label h=119
  2012.  
  2013. ! Father
  2014. Set nmid 2
  2015. Pass _PAT *FAMC.HUSB
  2016. Pass _MAR *FAMC
  2017.  
  2018. NewLine
  2019. Style label h=64
  2020. Border frame l
  2021.  
  2022. ! This Person
  2023. Show NAME INDI
  2024. Show BIRT Born:
  2025. Show DEAT Died:
  2026. Pass _MAR *FAMS
  2027.  
  2028. NewLine
  2029. Style label h=9
  2030. Border frame l
  2031.  
  2032. ! This Person's spouse
  2033. NewLine
  2034. get *SEX
  2035. if M
  2036.   get *FAMS.WIFE
  2037. else
  2038.   get *FAMS.HUSB
  2039. endif
  2040. ifEmpty
  2041.   Style label
  2042. else
  2043.   Style label
  2044.   Font Times
  2045.   Text *it.NAME
  2046. endif
  2047. Border frame bl
  2048. Width 145
  2049.  
  2050. NewLine
  2051. Style static s=9
  2052. Font Times
  2053. Border frame l
  2054. Text Spouse
  2055.  
  2056. NewLine
  2057. Style label h=21
  2058. Border frame l
  2059.  
  2060. ! Mother
  2061. Pass _MAT *FAMC.WIFE
  2062.  
  2063. LeftSkip 178
  2064. MoveTo #dtop
  2065.  
  2066. !------------------ Column 2 -----------------
  2067.  
  2068. Style label h=42
  2069.  
  2070. ! PP
  2071. Pass _PAT *FAMC.HUSB.FAMC.HUSB
  2072. Pass _MAR *FAMC.HUSB.FAMC
  2073.  
  2074. NewLine
  2075. Style label h=71
  2076. Border frame l
  2077.  
  2078. ! PM
  2079. Pass _MAT *FAMC.HUSB.FAMC.WIFE
  2080.  
  2081. Style label h=106
  2082.  
  2083. ! MP
  2084. Pass _PAT *FAMC.WIFE.FAMC.HUSB
  2085. Pass _MAR *FAMC.WIFE.FAMC
  2086.  
  2087. NewLine
  2088. Style label h=71
  2089. Border frame l
  2090.  
  2091. ! MM
  2092. Pass _MAT *FAMC.WIFE.FAMC.WIFE
  2093.  
  2094. LeftSkip 345
  2095. MoveTo #dtop
  2096.  
  2097. !------------------ Column 3 -----------------
  2098.  
  2099. Style label h=2
  2100.  
  2101. ! PPP
  2102. Pass _PAT *FAMC.HUSB.FAMC.HUSB.FAMC.HUSB
  2103. Pass _MAR *FAMC.HUSB.FAMC.HUSB.FAMC
  2104.  
  2105. NewLine
  2106. Style label h=3
  2107. Border frame l
  2108.  
  2109. ! PPM
  2110. Pass _MAT *FAMC.HUSB.FAMC.HUSB.FAMC.WIFE
  2111.  
  2112. Style label h=6
  2113.  
  2114. ! PMP
  2115. Pass _PAT *FAMC.HUSB.FAMC.WIFE.FAMC.HUSB
  2116. Pass _MAR *FAMC.HUSB.FAMC.WIFE.FAMC
  2117.  
  2118. NewLine
  2119. Style label h=3
  2120. Border frame l
  2121.  
  2122. ! PMM
  2123. Pass _MAT *FAMC.HUSB.FAMC.WIFE.FAMC.WIFE
  2124.  
  2125. Style label h=6
  2126.  
  2127. ! MPP
  2128. Pass _PAT *FAMC.WIFE.FAMC.HUSB.FAMC.HUSB
  2129. Pass _MAR *FAMC.WIFE.FAMC.HUSB.FAMC
  2130.  
  2131. NewLine
  2132. Style label h=3
  2133. Border frame l
  2134.  
  2135. ! MPM
  2136. Pass _MAT *FAMC.WIFE.FAMC.HUSB.FAMC.WIFE
  2137.  
  2138. Style label h=6
  2139.  
  2140. ! MMP
  2141. Pass _PAT *FAMC.WIFE.FAMC.WIFE.FAMC.HUSB
  2142. Pass _MAR *FAMC.WIFE.FAMC.WIFE.FAMC
  2143.  
  2144. NewLine
  2145. Style label h=3
  2146. Border frame l
  2147.  
  2148. ! MMM
  2149. Pass _MAT *FAMC.WIFE.FAMC.WIFE.FAMC.WIFE
  2150.  
  2151. LeftSkip 2
  2152. NewLine
  2153.  
  2154. HideExcess
  2155. ZoomWindow
  2156.  
  2157.  
  2158. @@GeDF@@_PAT Printing
  2159. newline
  2160. hskip -22
  2161. style static w=20 j=right s=9
  2162. font times
  2163. text #nmid
  2164. text .
  2165. add nmid 1
  2166. hskip 2
  2167.  
  2168. style label
  2169. get *msg.NAME
  2170. ifnotempty
  2171.   font Times
  2172.   text *it
  2173.   get #lmgn
  2174.   if 345
  2175.     get *msg.FAMC
  2176.     ifnotempty
  2177.       text " ->"
  2178.     endif
  2179.   endif
  2180. endif
  2181. tabwidth 1
  2182.  
  2183. newline
  2184. lineskip -4
  2185. style static tw=1 s=9
  2186. font Times
  2187. border frame lt
  2188. text Born:
  2189. text *msg.BIRT.DATE
  2190.  
  2191. newline
  2192. style static tw=1 s=9
  2193. font Times
  2194. border frame l
  2195. text Plac:
  2196. text *msg.BIRT.PLAC
  2197.  
  2198. newline
  2199. style static tw=1 s=9
  2200. font Times
  2201. border frame l
  2202. text Died:
  2203. text *msg.DEAT.DATE
  2204.  
  2205. newline
  2206. style static tw=1 s=9
  2207. font Times
  2208. border frame l
  2209. text Plac:
  2210. text *msg.DEAT.PLAC
  2211. @@GeDF@@_MAT Printing
  2212. NewLine
  2213. HSkip -22
  2214. Style static w=20 j=right s=9
  2215. Font Times
  2216. Text #nmid
  2217. Text .
  2218. Add nmid 1
  2219. HSkip 2
  2220.  
  2221. LineSkip -3
  2222. style label
  2223. get *msg.NAME
  2224. ifnotEmpty
  2225.   font Times
  2226.   Text *it
  2227.   get #lmgn
  2228.   if 345
  2229.     get *msg.FAMC
  2230.     ifNotEmpty
  2231.       Text " ->"
  2232.     endif
  2233.   endif
  2234. endif
  2235. Border frame bl
  2236. TabWidth 1
  2237.  
  2238. NewLine 1
  2239. Style static tw=1 s=9
  2240. font Times
  2241. Text Born:
  2242. Text *msg.BIRT.DATE
  2243.  
  2244. NewLine
  2245. Style static tw=1 s=9
  2246. font Times
  2247. Text Plac:
  2248. Text *msg.BIRT.PLAC
  2249.  
  2250. NewLine
  2251. Style static tw=1 s=9
  2252. font Times
  2253. Text Died:
  2254. Text *msg.DEAT.DATE
  2255.  
  2256. NewLine
  2257. Style static tw=1 s=9
  2258. font Times
  2259. Text Plac:
  2260. Text *msg.DEAT.PLAC
  2261. LineSkip -1
  2262. @@GeDF@@_MAR Printing
  2263. newline
  2264. style static tw=1 s=9
  2265. font Times
  2266. border frame l
  2267. text Marr:
  2268. text *msg.MARR.DATE
  2269.  
  2270. newline
  2271. style static tw=1 s=9
  2272. font Times
  2273. border frame l
  2274. text Plac:
  2275. text *msg.MARR.PLAC
  2276. lineskip -1
  2277. @@GeDF@@NAME Printing
  2278. NewLine
  2279. get *msg
  2280. if INDI
  2281.   HSkip -22
  2282.   Style label j=right w=20
  2283.   Font Times
  2284.   Text 1.
  2285.  
  2286.   HSkip 2
  2287.   Style editvalue w=253 f=bold
  2288.   Font Times
  2289.   Border frame lb
  2290.   HideExcess
  2291. else
  2292.   ! start new line and label
  2293.   Style label tw=1 j=right
  2294.   Text Name:
  2295.  
  2296.   ! edit name
  2297.   HSkip 5
  2298.   Style editvalue w=-1 b=field
  2299. endif
  2300. @@GeDF@@BIRT Printing
  2301. newline
  2302. style static w=28 s=9
  2303. Font Times
  2304. border frame l
  2305. text *msg
  2306. show DATE OK
  2307. show PLAC OK
  2308. HideExcess
  2309. @@GeDF@@DATE Printing
  2310. get *msg
  2311. if FG
  2312.   style editvalue tw=1
  2313.   border frame lrb
  2314.   content date
  2315. elseif Head
  2316.   style label j=right tw=1
  2317.   text Date:
  2318.  
  2319.   hskip 5
  2320.   style editvalue b=field w=-1
  2321.   content date
  2322. elseif OK
  2323.   style label f=plain
  2324.   Font Times
  2325.   text *valu
  2326.   width 225
  2327. endif
  2328. @@GeDF@@PLAC Printing
  2329. get *msg
  2330. if OK
  2331.   newline
  2332.   style static w=28 s=9
  2333.   Font Times
  2334.   border frame l
  2335.   text Plac:
  2336.  
  2337.   hskip 0
  2338.   style label f=plain
  2339.   Font Times
  2340.   text *valu
  2341.   width 225
  2342. elseif FG
  2343.   style label j=right w=40
  2344.   text Place:
  2345.   border frame b
  2346.  
  2347.   hskip 0
  2348.   style editvalue tw=2
  2349.   border frame lrb
  2350.  
  2351.   hskip 0
  2352.   style label w=1
  2353.   border frame r
  2354. else if Header
  2355.   show FORM Place Format:
  2356. else if Source
  2357.   newline
  2358.   style static b=field tw=1
  2359.   text Place:
  2360.  
  2361.   hskip 0
  2362.   style editvalue w=-1 b=field
  2363. endif
  2364. @@GeDF@@DEAT Printing
  2365. use BIRT Printing
  2366. @@GeDF@@clst Editing
  2367. NewLine
  2368. style button w=#fsiz b=button
  2369. text " "
  2370. text #cnum
  2371. text ". "
  2372. add cnum 1
  2373. link *msg
  2374. text *msg.NAME
  2375. help Click to view pedigree of this child
  2376. @@GeDF@@sbut Editing
  2377. NewLine
  2378. get #cnum
  2379. ifNot 0
  2380.   Style button w=#fsiz b=button
  2381.   Text " "
  2382.   Text #cnum
  2383.   Text ". "
  2384.   get *this.SEX
  2385.   if "M"
  2386.     Link *msg.WIFE
  2387.     Text *msg.WIFE.NAME
  2388.   else
  2389.     Link *msg.HUSB
  2390.     Text *msg.HUSB.NAME
  2391.   endif
  2392. endif
  2393. Add cnum 1
  2394. @@GeDF@@eIND Record Editing
  2395. Bg 0xAA 0xD4 0xFF
  2396. ToolBg 0xAA 0xD4 0xFF
  2397.  
  2398. LineSkip 2
  2399. SetTab 100
  2400. SetTab 150
  2401. RightMargin 500
  2402.  
  2403. Style label f=bold s=12 w=-1
  2404. Text "Edit details for "
  2405. Text *this.NAME
  2406.  
  2407. EndToolbar
  2408.  
  2409. ShowAll NAME INDI
  2410. Pass hlin
  2411.  
  2412. Show BIRT
  2413. ShowAll BIRT
  2414.  
  2415. Show DEAT
  2416. ShowAll DEAT
  2417.  
  2418. ShowAll BAPM
  2419. ShowAll CHR
  2420. ShowAll BLES
  2421. ShowAll BARM
  2422. ShowAll BASM
  2423. ShowAll ADOP
  2424. ShowAll CHRA
  2425. ShowAll CONF
  2426. ShowAll FCOM
  2427. ShowAll ORDN
  2428. ShowAll GRAD
  2429. ShowAll EMIG
  2430. ShowAll IMMI
  2431. ShowAll NATU
  2432. ShowAll CENS
  2433. ShowAll RETI
  2434. ShowAll PROB
  2435. ShowAll BURI
  2436. ShowAll WILL
  2437. ShowAll CREM
  2438. ShowAll EVEN
  2439. ShowAll BAPL
  2440. ShowAll CONL
  2441. ShowAll ENDL
  2442. ShowAll SLGC
  2443.  
  2444. Set satt #vpos
  2445. ShowAll OCCU
  2446. ShowAll EDUC
  2447. ShowAll DSCR
  2448. ShowAll RELI
  2449. ShowAll SSN
  2450. ShowAll IDNO
  2451. ShowAll PROP
  2452. ShowAll CAST
  2453. ShowAll NCHI
  2454. ShowAll NMR
  2455. ShowAll TITL
  2456. ShowAll NATI
  2457.  
  2458. get #vpos
  2459. ifNot #satt
  2460.   Pass hlin
  2461. endif
  2462.  
  2463. ifHasTags NOTE
  2464.   Show NOTE list
  2465.   NewLine
  2466.   Tab 1
  2467.   HSkip 5
  2468.   LeftSkip #hpos
  2469.   ShowAll NOTE list
  2470.   NewLine
  2471.   LeftSkip #dlmg
  2472.   Pass hlin
  2473. endif
  2474.  
  2475. ifHasTags SOUR
  2476.   Show SOUR
  2477.   NewLine
  2478.   Tab 1
  2479.   HSkip 5
  2480.   LeftSkip #hpos
  2481.   ShowAll SOUR
  2482.   NewLine
  2483.   LeftSkip #dlmg
  2484.   Pass hlin
  2485. endif
  2486.  
  2487. Style label tw=1 f=bold
  2488. Text Attach
  2489.  
  2490. HSkip 5
  2491. Show NOTE list
  2492. Show SOUR
  2493.  
  2494. ShowAll CHAN
  2495.  
  2496. HideExcess
  2497. @@GeDF@@iEVT Editing
  2498. Style label f=bold tw=1
  2499. Text *name
  2500.  
  2501. Show DATE OK
  2502. Show PLAC OK
  2503.  
  2504. ifHasTags NOTE
  2505.   LeftSkip 5
  2506.   Show NOTE list
  2507.   NewLine
  2508.   Tab 2
  2509.   HSkip 5
  2510.   LeftSkip #hpos
  2511.   ShowAll NOTE list
  2512.   NewLine
  2513.   LeftSkip 4
  2514. endif
  2515.  
  2516. ifHasTags SOUR
  2517.   LeftSkip 5
  2518.   Show SOUR
  2519.   NewLine
  2520.   Tab 2
  2521.   HSkip 5
  2522.   LeftSkip #hpos
  2523.   ShowAll SOUR
  2524.   NewLine
  2525.   LeftSkip 4
  2526. endif
  2527.  
  2528. newline
  2529. style label tw=2 j=right
  2530. text Attach:
  2531.  
  2532. hskip 5
  2533. Show NOTE list
  2534. Show SOUR
  2535.  
  2536. Pass hlin
  2537.  
  2538. HideExcess
  2539. @@GeDF@@BIRT Editing
  2540. use iEVT Editing
  2541. @@GeDF@@hlin Editing
  2542. newline
  2543. rightmargin 510
  2544. LeftSkip 0
  2545. hrule
  2546. rightmargin 500
  2547. LeftSkip 4
  2548. @@GeDF@@BAPM Editing
  2549. use iEVT Editing
  2550. @@GeDF@@CHR Editing
  2551. use iEVT Editing
  2552. @@GeDF@@BURI Editing
  2553. use iEVT Editing
  2554. @@GeDF@@FRul Editing
  2555. RightMargin 509
  2556. hrule
  2557. RightMargin 507
  2558. @@GeDF@@BLES Editing
  2559. use iEVT Editing
  2560. @@GeDF@@BARM Editing
  2561. use iEVT Editing
  2562. @@GeDF@@BASM Editing
  2563. use iEVT Editing
  2564. @@GeDF@@ADOP Editing
  2565. use iEVT Editing
  2566. @@GeDF@@CHRA Editing
  2567. use iEVT Editing
  2568. @@GeDF@@CONF Editing
  2569. use iEVT Editing
  2570. @@GeDF@@FCOM Editing
  2571. use iEVT Editing
  2572. @@GeDF@@ORDN Editing
  2573. use iEVT Editing
  2574. @@GeDF@@GRAD Editing
  2575. use iEVT Editing
  2576. @@GeDF@@EMIG Editing
  2577. use iEVT Editing
  2578. @@GeDF@@IMMI Editing
  2579. use iEVT Editing
  2580. @@GeDF@@NATU Editing
  2581. use iEVT Editing
  2582. @@GeDF@@CENS Editing
  2583. use iEVT Editing
  2584. @@GeDF@@RETI Editing
  2585. use iEVT Editing
  2586. @@GeDF@@PROB Editing
  2587. use iEVT Editing
  2588. @@GeDF@@WILL Editing
  2589. use iEVT Editing
  2590. @@GeDF@@CREM Editing
  2591. use iEVT Editing
  2592. @@GeDF@@BAPL Editing
  2593. use lEVT Editing
  2594. @@GeDF@@CONL Editing
  2595. use lEVT Editing
  2596. @@GeDF@@ENDL Editing
  2597. use lEVT Editing
  2598. @@GeDF@@SLGC Editing
  2599. use lEVT Editing
  2600. @@GeDF@@iATT Editing
  2601. newline
  2602. Style label f=bold tw=2
  2603. Text *name
  2604.  
  2605. hskip 5
  2606. style editvalue b=field w=-1
  2607.  
  2608. HideExcess
  2609. @@GeDF@@OCCU Editing
  2610. use iATT Editing
  2611. @@GeDF@@EDUC Editing
  2612. use iATT Editing
  2613. @@GeDF@@DSCR Editing
  2614. use iATT Editing
  2615. @@GeDF@@RELI Editing
  2616. use iATT Editing
  2617. @@GeDF@@SSN Editing
  2618. use iATT Editing
  2619. @@GeDF@@IDNO Editing
  2620. use iATT Editing
  2621. @@GeDF@@PROP Editing
  2622. use iATT Editing
  2623. @@GeDF@@CAST Editing
  2624. use iATT Editing
  2625. @@GeDF@@NCHI Editing
  2626. use iATT Editing
  2627. @@GeDF@@NMR Editing
  2628. use iATT Editing
  2629. @@GeDF@@NATI Editing
  2630. use iATT Editing
  2631. @@GeDF@@ficn Editing
  2632. MoveTo 2
  2633. HMoveTo 2
  2634.  
  2635. icon Open File:Open...
  2636. help Open new file
  2637. hskip -1
  2638.  
  2639. icon Save File:Save
  2640. help Save file
  2641.  
  2642. hskip -1
  2643. icon Print File:Print...
  2644. help Print
  2645.  
  2646. hskip -1
  2647. icon Preview File:Print Preview...
  2648. help Print preview
  2649.  
  2650. hskip 2
  2651. icon Search Edit:Search...
  2652. help Search the file
  2653.  
  2654. hskip -1
  2655. icon Index View:Index...
  2656. help Open index window
  2657.  
  2658. @@GeDF@@gmen Editing
  2659. hskip 24
  2660. icon Back Go:Back
  2661. help Go back
  2662.  
  2663. hskip 2
  2664. icon Prev Go:Prev
  2665. help "Previous "
  2666. help *rec
  2667. help " record"
  2668.  
  2669. hskip -1
  2670. icon Next Go:Next
  2671. help "Next "
  2672. help *rec
  2673. help " record"
  2674.  
  2675. hskip 2
  2676. icon Home Go:Home
  2677. help Go to home record
  2678. @@GeDF@@Nlab Editing
  2679. style label w=-1
  2680. get *rec
  2681. if HEAD
  2682.   text "Header Notes"
  2683. elseif FAM
  2684.   text "Notes on "
  2685.   get *this.HUSB.NAME
  2686.   ifempty
  2687.     get ?
  2688.   endif
  2689.   text *it
  2690.   text " / "
  2691.   get *this.WIFE.NAME
  2692.   ifempty
  2693.     get ?
  2694.   endif
  2695.   text *it
  2696.   text " Family"
  2697. elseif SOUR
  2698.   get *msg
  2699.   ifempty
  2700.     text "Notes on "
  2701.   else
  2702.     text *msg
  2703.   endif
  2704.   get *this.ABBR
  2705.   ifempty
  2706.     get *this.TITL
  2707.     ifempty
  2708.       get <Unnamed Source>
  2709.     endif
  2710.   endif
  2711.   text *it
  2712. else
  2713.   text "Notes on "
  2714.   get *this.NAME
  2715.   ifempty
  2716.     get <Unnamed Record>
  2717.   endif
  2718.   text *it
  2719. endif
  2720. @@GeDF@@CHAN Editing
  2721. newline 1
  2722. hskip 20
  2723. style static s=9 j=center
  2724. text "Changed: "
  2725.  
  2726. text *DATE
  2727. get *DATE.TIME
  2728. ifnotempty
  2729.   text ", "
  2730.   text *it
  2731. endif
  2732. width -10
  2733. cellbg 0xFF 0xF4 0xD3
  2734. border frame rtbl
  2735.  
  2736. HideExcess
  2737. newline 5
  2738. @@GeDF@@SOUa Record Editing
  2739. Bg 0xAA 0xD4 0xFF
  2740. ToolBg 0xAA 0xD4 0xFF
  2741.  
  2742. LineSkip 2
  2743. SetTab 80
  2744. SetTab 140
  2745.  
  2746. ! Source citation in separate window, but link
  2747. !  to actual source
  2748.  
  2749. style label j=right tw=1
  2750. text Source:
  2751.  
  2752. hskip 5
  2753. style button w=-1 f=underline
  2754. get *valu
  2755. if validlink
  2756.   get *it.ABBR
  2757.   ifempty
  2758.     get *valu.TITL
  2759.     ifempty
  2760.       get <Unnamed Source>
  2761.     endif
  2762.   endif
  2763.   text *it
  2764.   help View source record
  2765. else
  2766.   text "Link Source"
  2767. endif
  2768. addlink
  2769. blue
  2770. endtoolbar
  2771.  
  2772. show PAGE
  2773. show DATA
  2774. show QUAY
  2775.  
  2776. ifHasTags NOTE
  2777.   settab 80
  2778.   leftskip 5
  2779.   Show NOTE list
  2780.   NewLine
  2781.   Tab 1
  2782.   HSkip 5
  2783.   LeftSkip #hpos
  2784.   ShowAll NOTE list
  2785.   NewLine
  2786.   LeftSkip #dlmg
  2787. endif
  2788. newline
  2789. tab 1
  2790. hskip 5
  2791. Show NOTE
  2792.  
  2793. HideExcess
  2794. ZoomWindow
  2795. @@GeDF@@PAGE Editing
  2796. use ABBR Editing
  2797. @@GeDF@@QUAY Editing
  2798. !title
  2799. newline
  2800. style label j=right tw=1
  2801. text Quality:
  2802.  
  2803. ! popup menu
  2804. hskip 5
  2805. style popupedit w=100 b=popbutton f=plain s=9 j=center
  2806. popupitem Unknown:
  2807. popupitem Unreliable:0
  2808. popupitem Questionable:1
  2809. popupitem Secondary:2
  2810. popupitem Primary:3
  2811. cellbg 0xD8 0xD8 0xD8
  2812. help Click to set quality of source
  2813. @@GeDF@@SOUb Record Editing
  2814. Bg 0xAA 0xD4 0xFF
  2815. ToolBg 0xAA 0xD4 0xFF
  2816.  
  2817. LineSkip 2
  2818. SetTab 80
  2819. SetTab 140
  2820.  
  2821. ! Source citation in separate window for embedded
  2822. !   citation
  2823.  
  2824. style label j=right tw=1
  2825. text Source:
  2826.  
  2827. hskip 5
  2828. style editcont b=field w=-1
  2829.  
  2830. show TEXT
  2831.  
  2832. ifHasTags NOTE
  2833.   settab 80
  2834.   leftskip 5
  2835.   Show NOTE list
  2836.   NewLine
  2837.   Tab 1
  2838.   HSkip 5
  2839.   LeftSkip #hpos
  2840.   ShowAll NOTE list
  2841.   NewLine
  2842.   LeftSkip #dlmg
  2843. endif
  2844. newline
  2845. tab 1
  2846. hskip 5
  2847. Show NOTE
  2848.  
  2849. HideExcess
  2850. ZoomWindow
  2851. @@GeDF@@eFAM Record Editing
  2852. Bg 0xAA 0xD4 0xFF
  2853. ToolBg 0xAA 0xD4 0xFF
  2854.  
  2855. LineSkip 2
  2856. SetTab 100
  2857. SetTab 150
  2858. RightMargin 500
  2859.  
  2860. Style label f=bold s=12 w=-1
  2861. Text "Edit events for "
  2862. get *this.HUSB.NAME
  2863. ifEmpty
  2864.   get ?
  2865. endif
  2866. Text *it
  2867. Text " / "
  2868. get *this.WIFE.NAME
  2869. ifEmpty
  2870.   get ?
  2871. endif
  2872. Text *it
  2873. Text " Family"
  2874.  
  2875. EndToolbar
  2876.  
  2877. ShowAll ENGA
  2878. ShowAll MARB
  2879. ShowAll MARC
  2880. ShowAll MARL
  2881. ShowAll MARS
  2882. ShowAll DIV
  2883. ShowAll DIVF
  2884. ShowAll ANUL
  2885. ShowAll CENS
  2886. ShowAll EVEN
  2887. ShowAll SLGS
  2888. @@GeDF@@ENGA Editing
  2889. use iEVT Editing
  2890. @@GeDF@@MARB Editing
  2891. use iEVT Editing
  2892. @@GeDF@@MARC Editing
  2893. use iEVT Editing
  2894. @@GeDF@@MARL Editing
  2895. use iEVT Editing
  2896. @@GeDF@@MARS Editing
  2897. use iEVT Editing
  2898. @@GeDF@@DIV Editing
  2899. use iEVT Editing
  2900. @@GeDF@@DIVF Editing
  2901. use iEVT Editing
  2902. @@GeDF@@ANUL Editing
  2903. use iEVT Editing
  2904. @@GeDF@@SLGS Editing
  2905. use lEVT Editing
  2906. @@GeDF@@lEVT Editing
  2907. Style label f=bold tw=1
  2908. Text *name
  2909.  
  2910. Show DATE OK
  2911. Show PLAC OK
  2912. show STAT
  2913. show TEMP
  2914.  
  2915. ifHasTags NOTE
  2916.   LeftSkip 5
  2917.   Show NOTE list
  2918.   NewLine
  2919.   Tab 2
  2920.   HSkip 5
  2921.   LeftSkip #hpos
  2922.   ShowAll NOTE list
  2923.   NewLine
  2924.   LeftSkip 4
  2925. endif
  2926.  
  2927. ifHasTags SOUR
  2928.   LeftSkip 5
  2929.   Show SOUR
  2930.   NewLine
  2931.   Tab 2
  2932.   HSkip 5
  2933.   LeftSkip #hpos
  2934.   ShowAll SOUR
  2935.   NewLine
  2936.   LeftSkip 4
  2937. endif
  2938.  
  2939. newline
  2940. style label tw=2 j=right
  2941. text Attach:
  2942.  
  2943. hskip 5
  2944. Show NOTE list
  2945. Show SOUR
  2946.  
  2947. Pass hlin
  2948.  
  2949. HideExcess
  2950. @@GeDF@@STAT Editing
  2951. !title
  2952. newline
  2953. style label tw=2 j=right
  2954. text Status:
  2955.  
  2956. ! popup menu
  2957. hskip 5
  2958. style popupedit b=popbutton j=center f=plain s=9 =
  2959.   w=100 h=16
  2960. cellbg 0xD8 0xD8 0xD8
  2961. popupitem {Unspecified}:
  2962. popupitem Child
  2963. popupitem Cleared
  2964. popupitem Completed
  2965. popupitem Infant
  2966. popupitem Qualified
  2967. popupitem Pre-1970
  2968. popupitem Stillborn
  2969. popupitem Submitted
  2970. popupitem Uncleared
  2971. @@GeDF@@
  2972. @@GeDF@@Current GEDitCOM Format Editing Help
  2973. ....r..j..U1zsB2.zy.x.I76y.1zs2A....../X..2.QU...6U..E0L....wE./
  2974. .E....34..2/LU...No..E4g.../xk.0.Wg...7d..20SE...rA./.C3...2q..1
  2975. /Bo...fO..28uE..0mY./.gr...AVU.116k../0d..EEhU..2GY./F2q...Fyk.3
  2976. 2UU../8a..EGh...38E.//Gq...JwE.23UA../QP..EL9E..3s../FSF...MMU.2
  2977. 45E../Vz..2MXU..4AQ..FXS...N2jzz4Aw../Y1zzw...0E./U.1E.8..A....8
  2978. ..........Y.1E.8..A/...8..........2.1E.8..A2...8..........6.1E.8
  2979. ..A....82JVShkp1..U.1E.8..A0...8..........A.1E.8..A2...8.....BE.
  2980. ....1E.8..A....8.....BE.....1E.8..A/...8...........N2G.U60.U60/I
  2981. O4Zn64VZP5.UR4xkOKAUNqZqNLAUNaxmPK3o9LBkNKBdNaZX64ZiNaxmPK3oOKxi
  2982. 643WPrJo64JYOLFdPaQUFoJ2EoxB62NdP4Jn65RcNKsURLBdPaQUR4VZ63/ZN4Zb
  2983. QaJZ62NjQapVR0sUJ4VZ64pVOKsURLBZ64xa65FcNG/ENKFdNr7ZNG/4Pr7hMLEU
  2984. OLAUR4wURaZZRm/VPaEUQ57dPbEUNaxpQWpbNKtZQa3oOKxi65/ZN4ZbQaJZ64Bc
  2985. ML7oQm/VPaEUQqZhQ4lZ64NVPKZgSG/bQaxpQ0/XO43mR5Ai63FcNG/ENKFdNr7Z
  2986. NG/4Pr7hMLEUN4xZQm/cMLNZ65BjPKIUNKFdR4ZiNm/aNK3oRL7ZQmkUMbJo64Zn
  2987. 64Zn65JnRK3gP5YUMaJoR4Jm65Fj65JnNG/oO4IUF4JaMLJgR0/5FIFdR2BDHG/4
  2988. Pr7hMLEU84xm643iPrFcNL6UMrJnR4xh64NjQapVR0YUR4wUNKFdR0/tPrJm64FV
  2989. R42UMKtY65FcNKsUP4xVN0/oO4IUI4JYOKRmNKIUFaxmPK3o65RcNKsUSKxp65RV
  2990. PbEUR4wURaZZRm/VPaEUQ57dPbEUQ4JYOKRmNKIUMqVVQbFn643iN0/aMKpdP5YU
  2991. Nr7jRL.UMqVVQbFn9UoBIr/ZMqZaOKAUFKFdR4ZiNm/7PaNjQapVR4ZjPW/aPr6U
  2992. FK3XO0/ISL/Z64xa637ZMqxmN.oU60.U60/0NLBdN4Jn65FcNG/aPqlgPrRdPaQU
  2993. O4JgQ0kUPK3iSG/jNW/oO4IUNaJVR5JmNLAUPqMUR4VZ63/ZN4ZbQaJZ62NjQapV
  2994. R0/VQaIUN4xXRKpZPbFZN0/WSG/cNKlk65/jQ0ppQ0/nR57dPaRn9W//Qm/tPrIU
  2995. PKxqNG/oO4IUPKxpQqIUML7jRKtY65FcNG/qML7dPrJn65RdPaFjRrAg65BjPKIU
  2996. O4JgQ0/oNLVo65RdP4kUML/kNK3m64Zi65FcNG/gPrRZQW/gNKNo64BjQatZQW/b
  2997. OLNdPaQUPKxmNG/dPaNjQapVR4ZjPW/VMaxpR0/qML7dPrJn64xWOaJXR5Ai63Bp
  2998. MqUUO4JgQ0/dQm/hPrBo65JnNKNpP0/aPr6UNr7VQ4VdMm/ZP4JhNKtoQm/gOKhZ
  2999. 64ZXPqtn9UoBdG/7HYF7JYZ2JI3A637ZMqxmN5AB60.U60.UJ4VZ64ZXPqsUMa3m
  3000. 64xa64JVMqUUGIt2GJN7F3J/H0/GNKBjQaEUNqZqNLAUMG/nNL7dNLAUPqMUMbJo
  3001. R4xiQm/oO43o65/mPrNdN4IUQqVjQbEUMrJoQm/oPm/hMKtt64pZPbIUMqxhPK3i
  3002. N0sUJ4wUP4JVQasURqVVR0/VPbYUOKBjPW/YPqJn90/hPrNZ65FcNG/hPrJnNG/j
  3003. RaJm65FcNG/WRLFoPqsv65BjPKIUO4JgQ0/oNLVo65RdP4kUML/kNK3m64Zi65Fc
  3004. NG/gPrRZQWpgNKNo64BjQatZQW/jNW/oO4IURqZiN4xr9W/7NW/WRLFoPqtn643m
  3005. NG/YOKphNKEg64Zo64pZMKtn65FcNG/XPr7mNLBkPqtYOKtb64pZPbIUOLFZPG/d
  3006. Qm/XRL7mNKtoP5YUN4ZnMK7gNKEi1G.U60.U63FcNG/bQaJZPW/VQb7jRm/WRLFo
  3007. Pqtn65FcMLEUNaxgP4xr643mNG/oPm1GFqwUEa3XOxAUR4wUR4VZ65/mNLNdPrJn
  3008. P5YURaZZRqJY657ZMqxmN0/jQW/oPm/nMr7jP4kUR4wUR4VZ6B7EQaJqOKxpQxAU
  3009. Pr6UoYtZS5HH62ZCF2ZKGIFJEIkUQaJXPr7Y64Zi65FcNG/aOKlZ9W/IO4IUoYVj
  3010. PKLH647pR5FjPW/bPqJn65Fj65FcNG/XRL7mNKto64VjPKIUQaJXPr7Y9UoU60.U
  3011. 60/IO4IUQaJnR0/jNW/oO4IURqZiN4xr64RdRaJn642UNaxpQWpbNKtZQa3oOKxi
  3012. 65/ZN4ZbQaJZ64BcML7o64NjQW/oO4IUMrJmQaJiR0/dPaFdRaZYRK3g9W/NPrIU
  3013. Mq3iPaxo64JiR4Jm643iSG/YMLFV64ZiR4wUR4VdQm/rOKtYPrQi63Fj64JiR4Jm
  3014. 64FVR42UMK7jRLEUR4VZ64BpQb7ZPbEUOKtYOLNdN5JVP0kUMqldMqgUPqsUR4VZ
  3015. 64tVPKIUOKsUR4VZ647gRKIUMaxs9W/NPrIURqZgP0/bNLEUMG/iNLQURqZiN4xr
  3016. 65RcNL7Z65ZjRG/XMKsUNKFdR0/oO4IUPa3hNGkUMKlg64JqNKtoQm/VPaEUMLFo
  3017. QaZWRLFZQmkUPaxoNLAg643iN0/nPrJmMqJn9UoU60.U60/NPrIUMq3i64BgOKBf
  3018. 64xi643iSG/jR4VZQW/iMKpZ64Zi65FcNG/XO43mR0/oPm/bPm/oPm/oO43o65/Z
  3019. QbBjPhJn65/ZN4ZbQaJZ64BcML7o9W/CMKpZQm/dPW/oO4IUP43nR0/bNKtZQa3o
  3020. OKxi65RdP4kUMaIUNaxgP4xrNKEUMbYUMG/YML7f64ldPaIUOKMUQqxhNG/VPaBZ
  3021. QrFjQbAUML7Z64hiPrRi64NjQW/oO43o64ZiN4ZqOKFpMKki62Za65FcNG/iMKpZ
  3022. 64Zn64tjR0/aPqlgPrRZN0/WSG/V64FVQagUP4ZiNGkUR4VZPW/oO43o64tVPKIU
  3023. OLAUR4VZ64lVQrEUOqtjRqsUPa3hNG/fPaxrPW/dPW/oO43o64ldPaIi1G.U60.U
  3024. 627ZR5RZNKsUNK3XO0/cRLBWMKtY643iN0/rOKNZ65RdP4kUMaIUMG1GFa3hOKlt
  3025. om/WRLFoPqsi63ZjRG/XMKsUMqldMqgUR4VjQqIUMbJoR4xiQm/oPm/qOKJr65Fc
  3026. NG/aMKpdP5YUQaJXPr7Y64NjQW/oO43o64BjRL/gNGsB60.U60.UEaJgPrQUR4VZ
  3027. 64ZiN4ZqOKFpMKkURqZgP0/WNG/gOLBoQm/jNW/VP4kUO4Zn64xm64VZQW/XO4Zg
  3028. N57ZPW/VPaEUMKtt64xoO4Jm65BkPrJnNLAU847ZQqZYNLAUR4VZ64xiNG/jPW/o
  3029. O4IUMrJmQaJiR0/XO43mR0Yi63ZjRG/XMKsUMqldMqgUMKtt64xa65FcPrBZ64tV
  3030. PKJn65Fj65NdNLQUR4VZOL6UQ4JYOKRmNKIUMqVVQbFn9UoU60.U60/IO4IUQ57d
  3031. PbFZN0/mNL/jQbEURqZgP0/VP5Bj647Z642UNaxpQWpbNKtZQa3oOKxi65/ZN4Zb
  3032. QaJZ64BcML7o90/WRLEUOLEURqZgP0/iPrEUQaJnNKpWP4IUR4VZ64xiNG/jPW/o
  3033. O4IUQqBmNKJi9W/IO4IUQ57dPbFZN0/mNL/jQbEURqZgP0/aOLEUPqsUPqtZ65/V
  3034. NqIg647Z64Zi647gMKBf643iN0/rO4ZoNGkUMKtY64RdRaIUMaZmR4Ug64FZMLFc
  3035. 90/VPaEUPK3mQaZVNqIUOKtaPr7hMLFdPqsUMK7jRLEUNK3XO0/kNL7nPqsUOKsU
  3036. R4VZ64BcML7o9W/IO4IUQ57dPbFZN0/mNL/jQbEURqZgP0/iPrEUOKtXP5JYNG/V
  3037. PbYUPrFcNL6UNLNZPbFn90/iPrFZQmkUPr6UQqxpQaBZQm/jPW/oO4IUOKtYOLNd
  3038. N5JVP0sUEG/hMKZi657ZMLBjPW/aPr6URLBdPaQUR4VZ63/ZN4ZbQaJZ62NjQapV
  3039. R0/dQm/oPm/WNG/VMalZ65Fj65/mOKto65FcNLBZ64tdMqIUPqtZ9L/VNqIUQ4JY
  3040. OKRmNKIUMqVVQbFn9UoBdG/4EIp7H3YUIaJXPr7YQkoU60.U60/IO4IUOKBjPW/W
  3041. ML6UPqMUNK3XO0/4EIp7H3YUIaJXPr7Y64RdRaJn642UQqJmOKJn64xa647pR5Fj
  3042. PbAUR4VVR0/kQaxqOKFZ65BcPr7o64BpR5AUR4wUPK3iSG/hNKtp64BjPKpVPaEi
  3043. 63Fj64lZML7i65RcMLEUMKtt64ZXPqsUN4xZQmkUPKxqNG/oO4IUPKxpQqIUPrNZ
  3044. QW/oO4IUMbJoR4xiCm/nPqpZ64VZP5.UR4JsR0/rOKlg643kQ4JVQW/dPW/oO4IU
  3045. P4xrNL6hP4JaR0/XPr7iNL6UPqMUR4VZ65RdPaFjRmsUGKMUMbJoR4xiQm/VQaIU
  3046. N4ZhPKJY90/dR0/hNK3iQm/oO4IUMqxmQaJnQ4xiN4ZiNm/hNKtp64ZoNKoUOLAU
  3047. MrJmQaJiR4lt64FdQq3WP4JY9UoU60.U60/IO4IUNr7ZNKsUML7mPrQUMbJoR4xi
  3048. Qm/oO43o64NjP4ljRm/VQaIUR4wUoYRj627VMqjH65Fj65FcNG/kQaJqOKxpQqlt
  3049. 65NdNLRZN0/mNKBjQaEUPr6UR4wUQqBmPqlg65Fj65FcNG1GI57ZRaZjRLDH64xm
  3050. 6B7CNLVoom/4EIp7H3YUQaJXPr7Y64Zi65FcNG/aOKlZ9W/IO4IUoYVjPKLH647p
  3051. R5FjPW/bPqJn65Fj65FcNG/XRL7mNKto64VjPKIUQaJXPr7Y9UoU60.U60/IO4IU
  3052. QaJnR0/jNW/oO4IURqZiN4xr64Zn642UNa3hOKlt64RmPrJk64BcML7o9W/7R0/g
  3053. OLBoQm/WMLBdMm/dPaNjQapVR4ZjPW/VMaxpR0/ZMKBc65BkPrJnNG/VPaEUNK3X
  3054. O0/XO4ZgN0/dPW/oO4IUNa3hOKlt9W/IO4IUPqtgSG/YMLFV65ZjRG/XMKsUNKFd
  3055. R0/dPW/oO4IUMqVVQbEUML7Z65FcNG/YMLFZ643iN0/kP43XNG/aPr6UR4VZ64pV
  3056. Qb7dMKRZ64JqNKto9W/NPrIUMq3i64BgOKBf643iSG/iMKpZ64ldQrFZN0/dPW/o
  3057. O4IUNa3hOKlt64RmPrJk65Fj65BZNG/oO43o64ZiN4ZqOKFpMKnJQm/kNKFdNr7Z
  3058. NG/XO43mR0sUJ4VZ65/jQrBdMalZ64tVPKJn65RdP4kUOKtXP5JYNG/oO4IUO5Jn
  3059. Ma3iN0kUR4VZ65RdNaIg643gP0/XO4ZgN57ZPWkUR4VZ65/VQaJiR5AUPqMUR4VZ
  3060. 64VpQq7VPaEg65FcNG/kML7ZPbFn64xa65FcNG/rOKNZ90/VPaEUQr/jRLBZQm/j
  3061. NW/ZMKBc64BcOKlY9UoU60.U627ZP4xr65FcNG/XO43mR0/tPrIUMq3i64BgOKBf
  3062. 642UMbJoR4xi65Fj65NdNLQUMKtY64JYOLEUMKlg64xoO4Jm64JqNKtoQm/aPr6U
  3063. R4VZ64NVPKZgSGsUJ4VZQaIUML7Z643gQqwUPr/oOKxiQm/aPr6UMLFoMKBcOKtb
  3064. 64tjR4Jn643iN0/nPrJmMqJn9UoU60.U62Za65ZjRG/kQaZiR0/V64NVPKZgSG/m
  3065. NKBjQaEg65ZjRG/rOKlg64RZR0/V657ZQ4xmR0/qNL7t65BdPKZgML6UR4wUR4VZ
  3066. 64NVPKZgSG/bQaxpQ0/XO43mR0/jPW/oO4IUQqBmNKJi9W/7R0/rOKlg647Z64Zi
  3067. 647gMKBf643iN0/rO4ZoNG/VPaEUOLEURqZgP0/jPalt65FcNG/aMKpdP5YUNr7j
  3068. RL.UMqVVQbEi63FcNG/ZS5FmMG/ZRaJiR5Ag64tjR4Jn90/VPaEUQqxpQaBZ647Z
  3069. P4xr65FcNG/XO43mR0/rOKlg64tjR0/kQaZiR0sB1OIUG2J/F2JG637ZMqxmN.oU
  3070. 60.U60/IO4IUG4JVN4Jm637ZMqxmN0/dQm/nOKpkP5YUN4ZnQ4lVSKJY64Zi642U
  3071. QqJmOKJn64xa64JYOLFdPaQUNaZZP4Fn9W/NPrIUMq3i64pVOqIUMKtt64BcMKtb
  3072. NLAUSKxp65RVPbEU85BZNG/6FI32FJ6UIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAU
  3073. PqMUPKxnR0/jNW/oO4IUNaZZP4Fn8GsUI57jMa3WP5YUR4VZ64xiP5YUR4VdPaRn
  3074. 65ZjRG/hOKRcR0/XO43iNqIUML7Z65FcNG/aOKlZ64tVPKIU85BZNG1GFaZgNHfH
  3075. 64NdNKlY8G/VPaEUR4VZ64VZMKFZQW/iPrFZQm.cNKFdR0/VPW/qOKJr647t64Bg
  3076. OKBfOKtb647pR5FjPW/VR0/oO4IUMaxoR4xh64xa65FcNG/6FI32FJ6UIaJXPr7Y
  3077. 65RdPaFjRmYi1G.U60.U62Za65ZjRG/kQaZiR0/oO4IUG4JVN4Jm657ZMqxmN0/d
  3078. R0/rOKlg643kQ4JVQW/qNL7t65BdPKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n
  3079. 64xi65FcNG/nMr7ZNKsUNLVXNL/o64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/W
  3080. MKBfNr7jRKtY9UoBdG/HHpJGEoIUIaJXPr7YQkoU60.U60/IO4IUNaZmQrEUQqJX
  3081. R4ZjPW/ZPbFZQbAUN4JoMKZgQm/VMaxpR0/oO4IUQqxpQaBZ65BpMqUUMLAUMLJo
  3082. O4xm90/oOLFgNGkUMKtY65/pMaldQqVZQWsUKKxp64BVPW/VP5Bj643YN0/V64ld
  3083. PagUR4wUMG/GFJ/DIoZIHp7N637ZMqxmN0/rO4ZXO0/YNKNdPaJn65RcNL7Z65Fc
  3084. NG/nPrJmMqIUOLAUQrFjQaJY9W/4OKtVP4lt65ZjRG/XMKsUMKFY64tjR4Jn643W
  3085. PrJo65FcNG/nPrJmMqIi1G.U60.U63FcNG/iNLVo65BZMrFdPqsUMq3i647Z65Jn
  3086. NKEUR4wUNKtoNL6UNLVXNL7kR5AUNb7jPG/oO4IUQqxpQaBZ9W/IO4IUP43nR0/n
  3087. NKBoOKxi64RdRaJn64tjR4Jn643WPrJo65FcNG/nPrJmMqIUN43oMGsB60.U60.U
  3088. GKMUSKxp65/mOKto642UIqxpQaBZ657ZMqxmN0/dR0/rOKlg643kQ4JVQW/qNL7t
  3089. 65BdPKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n64xi65FcNG/nMr7ZNKsUNLVX
  3090. NL/o64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/WMKBfNr7jRKtY9UoBdG/GFJ/D
  3091. IoZIHp7N637ZMqxmN5AB60.U60.UJ4VZQaIUML7Z64NdNKlYQm/oPm/ZPbFZQW/o
  3092. O4IUPa3hNG/VPaEUMKFYQaJnQm/jNW/oO4IUQaJkPrBdR4xmSG/jQW/jNW/nPqpZ
  3093. 64ljMq3oOKxi65RcNL7Z65BjRL7XNLAUML7Z65BoPr7ZN0sUKKxp64BVPW/VP5Bj
  3094. 64JiR4Jm64tjR4Jn643WPrJo65FcNG/mNL/jQqZoPr7t9UoU60.U60/7NW/tPrIU
  3095. Q57dPbEUMG/GNL/jQqZoPr7t657ZMqxmN0/dR0/rOKlg643kQ4JVQW/qNL7t65Bd
  3096. PKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n64xi65FcNG/nMr7ZNKsUNLVXNL/o
  3097. 64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/WMKBfNr7jRKtY9UoBdG/HJI7BGJFI
  3098. FJ6UIaJXPr7YQkoU60.U60/IO4JmNG/VQaIUNaZZP4Fn65Fj64JiR4Jm65FcNG/i
  3099. MKpZ643iN0/VN4FmNLBn64xa643iSKxiNG/VMrFdPaQUMLAUMG/nRK7hOLFoNL6U
  3100. Naxm65FcNG/bNKtZMKljNqZXMKkUN43oMG/dPW/oO4IUFoJ2EoxB62NdP4Ii1G.U
  3101. 60.U62Za65ZjRG/kQaZiR0/V63BpMapdR5FZQW/mNKBjQaEUOLEURqZgP0/VQ5/Z
  3102. ML6URaJmSG/nOKpdP43m65Fj65FcNG/rMLYUOLEUML/kNK3mQm/jPW/oO4IUQqBm
  3103. NKJi64JsMqJkR0/dR0/rOKlg65/mOKto64xi642URqVdR4IUMa3XOqRmPrJiN0sB
  3104. 1OIUIpJ0HIZHIoZDHW/GNKBjQaFn1G.U60.U63FcNG/HJI7BGJBHGIxC637ZMqxm
  3105. N0/dQm/nOKpkP5YUN4ZnQ4lVSKJY643iN0/tPrIUMq3i64BcMKtbNG/VPbYUNaZZ
  3106. P4EU85BZNG/HJI7BGJBHGIxC637ZMqxmN0/aPr6UR4VZ64pZMKtdPaRn64xa65Fc
  3107. NG/aOKJgN5AUOKsUR4VdQm/oSL/Z64xa657ZMqxmN0Yi1G.U60.U62Za65ZjRG/k
  3108. QaZiR0/oO4IUIrJWPKZnQqZjPW/mNKBjQaEUOLEURqZgP0/VQ5/ZML6URaJmSG/n
  3109. OKpdP43m65Fj65FcNG/rMLYUOLEUML/kNK3mQm/jPW/oO4IUQqBmNKJi64JsMqJk
  3110. R0/dR0/rOKlg65/mOKto64xi642URqVdR4IUMa3XOqRmPrJiN0sB1OIUHJJAJ2ZB
  3111. FIF7EG/GNKBjQaFn1G.U60.U63FcNG/ENKFdNr7ZNG/4Pr7hMLEUN4xZQm/iPrEU
  3112. QrJkQ4xmR0/hRKloOKpZN4ZV64xWOaJXR5Ai63ZjRG/nO4xpP4EURLBZ65FcNG/2
  3113. NKNVRKlo62R3F4ZoEoxB62NjQapVR0/oPm/VN4EUPLJgR4ZhNKFdMG/aOKlZ64ld
  3114. Pahn65Fj65ZjRL6UFoJ2EoxB64NdP4Ii1E
  3115. @@GeDF@@FTMIndex
  3116. 0fE......0..8U.F.jwA.Dzy.zE.G....2U.........6..eNY.//../..c.....
  3117. .0..8U0NU0c......0..8U...........2U.../6.......6..2.0......1xAMU
  3118. ........xOI.TE1z..1zzzzzzzw..TzzzzzAn..0zzzzztaN..DzzzzzNaM./Dzz
  3119. zzwnAk.3zzzzzk....PzzwnAzzw./zzznAnAn..6zzzAn7aN..bzzwnANaM.0jzz
  3120. nAknAk.9zzzAn.....nzztaNzzw.1TzzaNbAn..CzzyNaNaN..zzztaNNaM.2Dzz
  3121. aNYnAk.FzzyNaE.../9zzqNazzw.2zzzNaPAn..IzzxaNdaN./LzzqNaNaM.3jzz
  3122. NaMnAk.LzzxaNU.../XzznAnzzw.4TzzAnDAn..OzzwnAtaN./jzznAnNaM.5Dzz
  3123. AnAnAk.RzzwnAk.../vzzk..zzw.5zzz..1An..Uzzw..7aN.05zzk..NaM.6jzz
  3124. ...nAk.Xzzw......0HAnDzzzzw.7QnAzzzAn..anAnzztaN.0TAnDzzNaM.8AnA
  3125. zzwnAk.dnAnzzk...0fAnAnAzzw.8wnAnAnAn..gnAnAn7aN.0rAnAnANaM.9gnA
  3126. nAknAk.jnAnAn....11An7aNzzw.AQnAaNbAn..mnAmNaNaN.1DAn7aNNaM.BAnA
  3127. aNYnAk.pnAmNaE...1PAn4Nazzw.BwnANaPAn..snAlaNdaN.1bAn4NaNaM.CgnA
  3128. NaMnAk.vnAlaNU...1nAn1Anzzw.DQnAAnDAn..ynAknAtaN.1zAn1AnNaM.EAnA
  3129. AnAnAk//nAknAk...29An...zzw.EwnA..1An./2nAk..7aN.2LAn...NaM.FgnA
  3130. ...nAk/5nAk......2WNaTzzzzw.GNaNzzzAn./8aNbzztaN.2iNaTzzNaM.H7aN
  3131. zzwnAk/BaNbzzk...2uNaQnAzzw.HtaNnAnAn./EaNbAn7aN.34NaQnANaM.IdaN
  3132. nAknAk/HaNbAn....3GNaNaNzzw.JNaNaNbAn./KaNaNaNaN.3SNaNaNNaM.K7aN
  3133. aNYnAk/NaNaNaE...3eNaKNazzw.KtaNNaPAn./QaNZaNdaN.3qNaKNaNaM.LdaN
  3134. NaMnAk/TaNZaNU...40NaHAnzzw.MNaNAnDAn./WaNYnAtaN.4CNaHAnNaM.N7aN
  3135. AnAnAk/ZaNYnAk...4ONaE..zzw.NtaN..1An./caNY..7aN.4aNaE..NaM.OdaN
  3136. ...nAk/faNY......4laNjzzzzw.PKNazzzAn./iNaPzztaN.4xaNjzzNaM.Q4Na
  3137. zzwnAk/lNaPzzk...57aNgnAzzw.QqNanAnAn./oNaPAn7aN.5JaNgnANaM.RaNa
  3138. nAknAk/rNaPAn....5VaNdaNzzw.SKNaaNbAn./uNaONaNaN.5haNdaNNaM.T4Na
  3139. aNYnAk/xNaONaE...5taNaNazzw.TqNaNaPAn.0.NaNaNdaN.63aNaNaNaM.UaNa
  3140. NaMnAk01NaNaNU...6FaNXAnzzw.VKNaAnDAn.04NaMnAtaN.6RaNXAnNaM.W4Na
  3141. AnAnAk07NaMnAk...6daNU..zzw.WqNa..1An.0ANaM..7aN.6paNU..NaM.XaNa
  3142. ...nAk0DNaM......7.nAzzzzzw.YHAnzzzAn.0GAnDzztaN.7AnAzzzNaM.Z1An
  3143. zzwnAk0JAnDzzk...7MnAwnAzzw.ZnAnnAnAn.0MAnDAn7aN.7YnAwnANaM.aXAn
  3144. nAknAk0PAnDAn....7knAtaNzzw.bHAnaNbAn.0SAnCNaNaN.7wnAtaNNaM.c1An
  3145. aNYnAk0VAnCNaE...86nAqNazzw.cnAnNaPAn.0YAnBaNdaN.8InAqNaNaM.dXAn
  3146. NaMnAk0bAnBaNU...8UnAnAnzzw.eHAnAnDAn.0eAnAnAtaN.8gnAnAnNaM.f1An
  3147. AnAnAk0hAnAnAk...8snAk..zzw.fnAn..1An.0kAnA..7aN.92nAk..NaM.gXAn
  3148. ...nAk0nAnA......9E..Dzzzzw.hE..zzzAn.0q..1zztaN.9Q..DzzNaM.i...
  3149. zzwnAk0t..1zzk...9c..AnAzzw.ik..nAnAn.0w..1An7aN.9o..AnANaM.jU..
  3150. nAknAk0z..1An....A...7aNzzw.kE..aNbAn.10..0NaNaN.AA..7aNNaM.l...
  3151. aNYnAk13..0NaE...AM..4Nazzw.lk..NaPAn.16../aNdaN.AY..4NaNaM.mU..
  3152. NaMnAk19../aNU...Ak..1Anzzw.nE..AnDAn.1C...nAtaN.Aw..1AnNaM.o...
  3153. AnAnAk1F...nAk...B6.....zzw.ok....1An.1I.....7aN.BI.....NaM.pU..
  3154. ...nAk1Lvis......BXRrE......qPiv......1Oeec......Bi6W.......r5Rr
  3155. ......1RJJI......Bt2F.......rm6W......1U2F2......C2..Cvi....sU..
  3156. rRo...1X..0vik...CE..8ee....tE..W6U...1a../rRk...CQ..3JJ....u...
  3157. F2E...1d...W6U...Cc../2F....uk....1ivU1g.....BrR.Co.....ivg.vU..
  3158. ..0eeU1j.....6W6.D......RrQ.wE..../JJE1m.....2F2.DA.....6W6.x...
  3159. ...F2E1pvivivivi.DPRrRrRrRo.xvivivivik1seeeeeeee.Da6W6W6W6U.ybRr
  3160. RrRrRk1vJJJJJJJJ.Dl2F2F2F2E.zG6W6W6W6U1y2F2F2F2F.Dw.............
  3161. .0..8U......6..e.2..0U......6..e.hTp/BXp.DY6.TLpqzQ/yTY6.TLpqzQ/
  3162. yTYA.TLpujTvFDXr.Tbt1.5pxT9rwjrtxk5tyF2/xTLmxk1xx../zTfuxk5tyFI/
  3163. xTLmxk9x..1vFDk..TruyjQ/yTYE.TLpxDTmzE6.zTfuxk5tyFA/xTLoxk1xx..1
  3164. zE1xyjfr.Tbt2k5pxTPryoHr..Dx.DruyjQ/yTYH.TLpxzTmzEI..Do.zTfuxk5t
  3165. yFM/xTLrxk1xx..0zE..zjo.yjfr.Tbt4.5pxTTr.To.yG1x..Dx..1xzjfuxk5t
  3166. yFE/xTLrxk1xx..2zE..zTfsxk5tyFI/xTLrxk5x.DcUz.1xzE1uyDQ/yTYG.TLp
  3167. xzQ.zTE..DrxyjXr.Tbt2E5pxTTr.Dro..5xyjLr.Tbt1U5pxTTrwjo.yjLr.Tbt
  3168. 1.5pxTLrwzfpxk5tyEU/xTLPxk5tyEU/xTLPxk5tyF./xTLtxk1zyDQ.zyvr.Tbt
  3169. 2.5pxTbr.Dzsxk1zvjQ/yTYT.TLpyTQ/zzTyzzvrzjw4xzTzzzTrzzvr.Dztxk5t
  3170. yG./xTLtxlHzxzzrxzzrzzTrzzTzxzTzxzTzxzzsxk5tyFo/xTLtxkjzxzzrxzzr
  3171. zzTrzzTxzzvr.Dzrxk5tyFs/xTLtxknzxzzrxzzrzzTrzzTzzDQ0zzTzyDQ/yTYV
  3172. .TLpyTQ5zzTzxzTzxzTyzkPrxzzzxzTzzjQ.zzbr.Tbt0.5pxRjr.Tbt/.1pqDY0
  3173. pzY.zk
  3174.